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■ n un mercato effervescente come 
quello dell’elettronica e dei video¬ 
registratori non è sempre facile orizzontar¬ 
si fra tante offerte tutte diverse e accatti- 
vanti. IMI Acquistare bene a colpo sicu¬ 
ro, però, non è impossibile: l’importante è 
avere ben presenti le proprie esigenze, pri¬ 
vilegiando tutte quelle soluzioni che unisco¬ 
no alla più moderna tecnologia il grande pre¬ 
gio della semplicità d’uso. IH Una mac¬ 
china semplice, tuttavia, non deve essere 
per questo limitata, ma deve consentire tutta 
la versatilità che serve per impieghi sia pro¬ 
fessionali sia amatoriali. Esattamente 
così sono i videoregistratori e i videoripro¬ 
duttori Fenner, ottimo fermo-immagine, 
avanzamento fotogramma per fotogramma, 
“mute” ricerca video, telecomando, auto¬ 
play. riavvolgimento automatico a fine na¬ 
stro, autorepeat.^H 
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VIDEO CASSETTE RECORDER VR3000 


bisogna conoscere 
per acquistare bene 
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e Videoriproduttori. 
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ZX ■ SPECTRUM E STAMPANTE 

Spett. Redazione di LIST, 
ho acquistato nel Novembre 1986 uno 
Spectrum 128K, del quale sono tuttora 
molto soddisfatto. 

Vi sarei grato se rispondeste voi ad alcu¬ 
ne domande che ho già posto in più di un 
negozio specializzato della mia città, sen¬ 
za però ricevere risposte precise ed esau¬ 
riti. 

Esiste una stampante da collegare allo 
Spectrum? Una volta col legata, il compu¬ 
ter è abilitato al Word Processing? Mi po¬ 
treste indicare un modello sicuramente 
« compatibile » e facilmente reperibile sul 
mercato? 

Il collegamento di un Modem al mio com¬ 
puter quali applicazioni offre? 

I listati che pubblicate voi per lo Spectrum 
sono compatibili con il 128K? 

Vi ringrazio infinitamente e mi complimen¬ 
to per l'ottimo lavoro da voi mensilmente 
pubblicato. 

Federico Grimaldi - Genova 

Lo Spectrum 128 è pienamente compatibi¬ 
le con il normale Spectrum 48K, purché lo 
si usi in modo 48K, selezionando l’apposi¬ 
ta opzione. Usando il computer in questo 
modo, i listati che pubblichiamo sono per¬ 
fettamente compatibili. 

Nussun problema per le stampanti: qua¬ 
lunque stampante in commercio a stan¬ 
dard Centronics o RS232 può essere colle¬ 
gata al Sinclair, purché esso sia dotato di 
apposita interfaccia, per la quale esistono 
varie possibilità di scelta: a seconda del 
tipo di ingresso che la stampante possie¬ 
de, si può acquistare una interfaccia con 
uscita Centronics, oppure una seriale. In 
quest'ultimo caso un’ottima scelta è la fa¬ 
mosa interfaccia della Siclair, che permet¬ 
te anche l’uso dei microdrives. Per il word 
processing occorrono dei programmi ap¬ 
positi. Uno molto buono è Tasword II, re¬ 
centemente aggiornato con Tasword III. 
Entrambi i programmi funzionano egregia¬ 
mente con stampanti di tipo EPSON o 
compatibili, cioè la maggior parte di quel¬ 
le in commercio. Per il MODEM segui la 
nostra Rubrica Telematica. Ti ringraziamo 
dei complimenti e ti salutiamo cordial¬ 
mente. 


AGENDA TELEFONICA PC-128S 

Sono un abbonato della Vostra rivista, 
possessore di Olivetti PC-128S, interessa¬ 
to al pacchetto di programmi per la ge¬ 
stione domestica. 

Vorrei sottoporvi un problema che non rie¬ 
sco a risolvere: Seppur aver ricopiato e 
controllato varie volte il programma 
«AGENDA TELEFONICA » non riesco a far¬ 
lo girare perché si blocca non appena 
compare il menu principale ed i tasti cur¬ 
sore non funzionano come selettori. 

In attesa di un vostro consiglio, porgo di¬ 
stinti saluti. 

P.S. - Auguri per la rivista è una delle mi¬ 
gliori in commercio. 

Enrico Ballotta - Maddaloni 

Siamo spiacenti che il programma «AGEN¬ 
DA TELEFONICA» non ti funzioni come 




.. 


dovrebbe; purtroppo tale incoveniente è 
certamente dovuto ad errore di copiatura, 
sia pure di minima entità. 

Come specificato al punto 3 delle avver¬ 
tenze, il comando che abilita i tasti curso¬ 
re ad eseguire la selezione delle opzioni 
del menu si trova alla riga 60 e deve esse¬ 
re inserito nell’esatta forma *FX4,1; que¬ 
sta riga è ovviamente la prima da control¬ 
lare accuratamente. 

Qualora, dopo aver, effettuato il controllo, 
non avessi ancora risolto i tuoi problemi, 
ti connsigliamo di cancellare la riga 80 e 
mandare quindi di nuovo in esecuzione il 
programma. Mediante tale operazione vie¬ 
ne ripristinata la normale segnalazione 
che il computer fornisce, quando in un 
programma è presente un errore di qual¬ 
siasi genere e ciò ti consentirà di rintrac¬ 
ciare con facilità l’errore di copiatura. 
Ringraziandoti per i graditi complimenti, ti 
salutiamo cordialmente. 


PC IBM E COMPATIBILI 

Sono un vecchio lettore della vostra rivi¬ 
sta e leggendo il numero di settembre so¬ 
no rimasto colpito dalla rubrica sull'MS- 
DOS. La mia felicità è giustificata dal fat¬ 
to che la rubrica è arrivata in coincidenza 
con l’acquisto di un PC IBM compatibile 
dopo aver vissuto a lungo con un C64. 
Ora vi chiedo questo: riserverete anche ai 
PC compatibili le stesse attenzioni che 
avevate e che avete ancora per il piccolo 
Commodore? Spero di si. 

In attesa di positivo riscontro sulle pagine 
di LIST, vi saluto e vi faccio i miei compli¬ 
menti pe l’ottima rivista. 

Roberto Fiore - Firenze 

Il PC IBM e i suoi compatibili sono tuttora 
uno standard a livello aziendale e vortico¬ 
samente stanno entrando anche nel mon¬ 
do dell’informatica privata e hobbistica. 
Per questo LIST riserverà delle pagine nei 
mesi che verranno al PC e compatibili in 
genere con la convinzione di riscuotere un 
grande successo da parte del pubblico. 
Cercheremo di far seguire aM’MS-DOS altri 
argomenti come l’utilizzo proficuo dei pac¬ 
chetti software più famosi, linguaggio 
macchina, linguaggi in genere ecc., poi 
vedremo. 

DESIGN LAB: ERRORE !? 

Gentilissima redazione, 
essendo in possesso della vostra rivista 
ho eseguito sul mio CBM 64 il programma 
«DISIGN LAB » da voi proposto nel supple¬ 
mento al n. 6/7 di LIST estate 1987. 
Sfortunatamente, però, il programma non 
mi risulta esatto. 

infatti mi risulta un errore di indice (BAD 
SUBSCRIPT) nella linea 40. 

Ho controllato e ricontrollato più volte il 
programma, ma non riesco a trovare l’er¬ 
rore. 

Vi prego quindi di aiutarmi. 

Basso Emiliano - Treviso (TV) 


Sinceramente non si riesce a capire come 
si possa verificare un errore alla linea 40 
di Design Lab, visto che si richiede esclu¬ 
sivamente di stampare in un dato punto 
dello schermo una stringa. Considerazio¬ 
ne; si potrebbe verificare solo un SINTAX 
ERROR, magari dimenticando una virgo- 
letta o altro. C’è però un altra possibilità: 
la linea 40 inizia con PRINT AT 12,0) ecc. 
il calcolatore potrebbe scambiare AT(12,0) 
con indice bidimensionale e non trovando 
il dimensionamento si inceppa. Questo 
però si verificherebbe solo se tu avessi di¬ 
menticato di caricare il SIMON BASIC pri¬ 
ma di DESIGN LAB, visto che il basic 2,0 
del C64 non riconosce tale istruzione. 


ERRORI SUI LISTATI 

Spett. LIST, 

sono un vostro abbonato e apprezzo mol¬ 
to la vostra rivista: sono un utente di si¬ 
stemi MSX. Sono interessato soprattutto 
ai programmi didattici (frequento l'Ist. Ma¬ 
gistrale e ho fatto alcune lezioni di infor¬ 
matica con l’aiuto del LOGO a bambini di 
V elementare durante le ore di tirocinio). 
Ho digitato il programma «ROBOT INSE¬ 
GNANTE» apparso su LIST 6/7-1987, pro¬ 
gramma che ritengo molto interessante. 
Purtroppo però il programma non funzio¬ 
na, anche se digitato correttamente; do¬ 
po il RUN e dopo la schermata di presen¬ 
tazione moito carina, non succede più 
niente: premendo uno qualsiasi dei tasti 
(es. 5) sullo schermo appare «5», dopo di 
che premendo ancora il naso del robot 
cancella il tutto...e così via all’infinito. 

Malvestio Angelo • Massanzago (PD) 

A garanzia dei lettori, teniamo a precisare 
che ogni listato pubblicato sulla rivista, 
viene scrupolosamente controllato e fer¬ 
mato immediatamente in caso si verificas¬ 
se anche un errore banale. Sono rarissimi 
i casi in cui si verifica un errore di stampa 
anche perché i processi sequenziali per 
mandare in pubblicazione un programma 
sono questi: viene controllato il listato, 
stampato su carta, fotografato e stampa¬ 
to sulla rivista. Un secondo indice può es¬ 
sere quello dei lettori che telefonano in re¬ 
dazione per segnalare errori e nel 90% dei 
casi si rendono conto che si tratta di erro¬ 
ri di digitazione. Quindi ci raccomandiamo 
a tutti i lettori di controllare e ricontrollare 
i listati, fiduciosi di riuscire nell’intento di 
farli funzionare. Stessa raccomandazione 
vale per il Sig. Malvestio, chi scrive ha 
provveduto all’epoca a stampare il pro¬ 
gramma, pochi secondi dopo aver verifica¬ 
to il funzionamento. 


TASTI FUNZIONE C64 

La risposta al lettore Paolo Gonella è 
nella rubrica «per saperne di più». 

HARDCOPY PER PC128S 

La risposta alla lettera del Sig. Anto¬ 
nio Rosi è stata inserita nella rubrica 
«Per saperne di più». 
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LO AVETE CERTAMENTE NOTATO ! 

LIST è in pieno rilancio. Nuove rubriche; 
nuova anche se non del tutto definitiva, 
impostazione grafica; maggiore atten¬ 
zione al dettaglio, al particolare, anche 
minimo. 

Perché LIST (che, crescendo, ha raddop¬ 
piato il numero dei lettori) si rivolge ad 
un pubblico esigente. Si rivolge a te, 
amico computerista, esperto e meno 
esperto, minuzioso, attento, paziente e 
implicitamente proiettato al futuro. Tu 
sei moderno più dei tuoi coetanei, per¬ 
ché moderno, attuale è il computer su 
cui eserciti e che ti allena la mente con 
una corroborante ginnastica attentiva. 
Attraverso le pagine di LIST, hai modo, 
mese dopo mese, di esercitare al meglio 
le tue capacità. 

LIST, con le pagine aperte al fianco del 
tuo computer, è indispensabile, nume¬ 
ro dopo numero, per avere sempre nuovi 
programmi e notizie. 

LIST è, il tuo consigliere, il tuo program¬ 
mista, il tuo notiziere ... ma desidera so¬ 
prattutto diventare tuo amico (tra i più 
simpatici). 
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Biometal Robot.. 


Biometal® 

_fi_ 


Il fenomeno della 
contrazione e 
dell'allungamento 


Riprendiamo l'argomento introdotto lo scorso mese, valu¬ 
tando ora concretamente le capacità delle leghe ad effet¬ 
to SME ed in particolare Biometal® . 

Nello scorso numero abbiamo appreso molte informazioni 
sulle leghe SME ma non abbiamo puntualizzato come il 
fenomeno avvenga nel microscopico mondo delle molecole. 
Accenneremo qui solo semplici concetti basilari, senza 
trattare dettagli specifici. 

Supposto che tutti si abbia una infarinatura della fisica 
piu elementare, accenniamo al fatto che la materia è co¬ 
stituita da atomi e che le caratteristiche visive della mate¬ 
ria dipendono dall’organizzazione degli stessi, cioè come 
avviene il legame tra atomo e atomo e gruppi di atomi 
(molecole). 

Le leghe SME hanno una struttura metallico-cristallina 
con due stati o fasi, durante le quali le molecole possono 
sistemarsi. A temperatura al di sotto di quella «di transi¬ 
zione» i metalli si deformano facilmente. Questa fase mal¬ 
leabile, a bassa temperatura, è chiamata Martensitic pha- 
se. o fase M (Fig. 1). 


Austenitìc state 


Martensitic state 



Un filo Biometar che è stato allungato e poi riscaldato 
al di sopra della sua temperatura di transizione, si accor¬ 
cia rapidamente e ritorna alla sua forma originaria. Que¬ 
sta contrazione avviene poiché la struttura cristallina del¬ 
la lega cambia in una seconda fase di temperatura più al¬ 
ta, chiamata Austenitic phase o parent phase o fase P. 
Le leghe ad effetto SME hanno una solida struttura ge¬ 
mellata: questa condizione metallurgica è dovuta ad una 
speciale struttura del metallo, grazie alla quale i cristalli 
che formano il metallo vengono orientati simmetricamen¬ 
te attraverso le pareti che congiungono due cristalli. 
Comunemente i cristalli gemellati sono l'immagine specu¬ 



lare l’uno dell'altro, e si riflettono tramite i piani di con¬ 
giunzione. Questo permette ad ogni singolo cristallo di 
muoversi e sistemarsi per i cambiamenti nella struttura 
interna del cristallo, ma di mantenere al contempo il suo 
orientamento basilare e di ritornare facilmente alla sua 
posizione di partenza. 

La doppia natura delle leghe SME permette al metallo di 
effettuare grandi cambiamenti della forma e mutamenti 
sia interni (come risultato del riscaldamento e delle tra¬ 
sformazioni cristalline) che esterni (come risultato di al¬ 
lungamenti o altre deformazioni). 

Passiamo ora a verificare quanto esposto facendo espe¬ 
rienze dirette con Biometal* . 

Nelle esperienze che effettueremo l'escursione termica 
della lega sarà causata dall'intensità di corrente che la 
percorrerà. In generale sono stati sviluppati tre sistemi 
per attivare Biometal* : 1) riscaldamento elettrico diretto, 
2) riscaldamento a singoli impulsi elettrici, 3) riscaldamen¬ 
to tramite modulazione di lunghezza degli impulsi elettrici 
(PWM). 

Analizziamo ora attentamente. 

1) Connettendo direttamente un pezzo di Biometal’ ad 
una sorgente elettrica di sufficiente potenza si ottiene 
una contrazione del filo quasi istantanea. Per prevenire 
danneggiamenti del filo l’intensità di corrente non deve 
superare valori intorno ai 500 mA. 

2) Il sistema di riscaldamento a singoli impulsi utilizza 
successivi picchi di corrente per indurre un innalzamento 
della temperatura e quindi una deformazione. Dopo l’ap¬ 
plicazione degli impulsi il filo si scalderà istantaneamente 
accorciandosi. 

Anche in questo caso per evitare che il surriscaldamento 
danneggi irreparabilmente il filo, si farà attenzione a non 
inviare impulsi elettrici che apportino troppa energia, per 
questo si usa un circuito per triggerare gli impulsi. 
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Questo metodo ha il vantaggio di attivare rapidamente il 
filo e di poterne accelerare il movimento in pochi istanti, 
fino a raggiungere velocità notevoli. Per aumentare la ve¬ 
locità di contrazione del filo è sufficiente aumentare il vol¬ 
taggio deH’impulso elettrico. 

3) Nel terzo metodo la corrente viene controllata inviando 
treni di impulsi di lunghezza variabile. Frequenze tra 700 e 
1100 cicli per secondo danno ottime performances; il vol¬ 
taggio degli impulsi deve essere tale da permettere impul¬ 
si di corrente di 1 Ampere. 

Variando il rapporto tra tempo di ciclo e tempo totale si 
ottiene una intensità di corrente tra i 300 e 500 mA. 
Mutando il voltaggio ed il tempo di ciclo dell’impulso elet¬ 
trico si regola la quantità di calore prodotta nel 
Biometal* . Ciò permette un diretto controllo delle fasi di 
contrazione e allungamento e rendere possibile il control¬ 
lo elettrico della quantità di deformazione. 

Utilizzando i circuiti elettronici e il materiale forniti nel 
TOKI STARTING KIT. affrontiamo ora 2 applicazioni parti¬ 
colarmente significative. 

Utilizzando due tubetti concentrici plastici, una molla, po¬ 
chi centimetri di Biometal" , possiamo realizzare un pi- 
stoncino elettrico. Come mostrato in fiqura 2. collegando 


Fig. 2 


MAPLE C0NNECT0R BIOMETAL *IRE 



alle graffette terminali del Biometal'* 2 fili ed il circuito 
PWM (TOKI DH 535) possiamo regolare una corsa del pi- 
stoncino con estrema semplicità. 

Finora per ottenere qualcosa del genere, sarebbe stato 
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necessario utilizzare almeno aria compressa o voluminosi 
solenoidi. 

L’applicazione del Biometal® apre nuove frontiere allo 
studio di micromovimenti. 

Un altro valido esempio delle doti di Biometal® è la tra¬ 
sformazione del moto lineare in rotatorio. 

Come si nota in figura 3. la puleggia è messa in movimen- 


PULLEY 



to dalla deformazione del Biometal® , mentre la molla rap¬ 
presenta la forza per ripristinare il sistema alla posizione 
iniziale. 

Utilizzando queste esperienze basilari alcuni tecnici giap¬ 
ponesi hanno realizzato un robot a 5 assi usando per 
muoverlo esclusivamente Biometal® . 

DH 101 ROBOT, questo è il suo nome, si presenta come 
un braccio umano e la sua delicatezza nei movimenti fa 
pensare realmente ad un braccio bionico. È corredato di 
una unità di potenza per comandare ciascun asse e dispo¬ 
ne di una unità programmabile in parallelo o seriale per 
memorizzare movimenti. 

Per il momento diciamo solo che è anche disponibile in 
kit per cui non perdete il prossimo numero in cui studiere¬ 
mo a fondo tutte le sue possibilità e ne valuteremo la sca¬ 
tola di montaggio. Fabrizio Ravasi / 


RAVASI ROBOTICS 

RAVASI ROBOTICS è una divisione della RAVASI I.M.S. 

s.n.c. di Ravasi Felice e Fabrizio & C. 

Via Cartiera, 1 - 22050 Brivio (CO) 
Telefono 039/53.21.433 
Telex 380161 RAVASI LCCI 



Sono interessato a: 
DH 101 Robot 
DH 620 starting kit 
iometal guide book 


Il mio personal computer è 
































NOTIZIARIO-M 


INFORMAZIONI 

DAL 

MONDO 

“INFORMATICO” 


RASSEGNA 

INTERNAZIONALE DELLA STAMPA SPECIALIZZATA 


a cura di Renzo Rubeo 


lRIO-NOTIZIARIO-NOTIZIARIO 


In questo numero: 
AMSTRAD 
ATARI 

COMMODORE 
HONEYWELL BULL 
IBM 

NIXDORF 

MANNESMANN 

OLIVETTI 

PHILIPS 

SHR 



PC 1640 ECD 

Personale Computer 
«Ogni soluzione 
è ad alta definizione» 


on l’introduzione del nuovo Perso¬ 
nal Computer PC 1640 ECD, com¬ 
prensivo di monitor grafico avanzato a 
colori compatibile EGA, la Amstrad for¬ 
nisce la soluzione ad ogni problema di 
grafica avanzata e completa la sua gamma 
di Personal Computer basata sul noto PC 
1512 con cui si è affermata come il mag¬ 
gior fornitore europeo di PC. 

11 cuore del nuovo PC 1640 ECD è lo spe¬ 
ciale circuito integrato a «gate array» 
1GA (Internai Graphic Adaptor) che for¬ 



nisce direttamente su piastra base l’adat¬ 
tatore EGA per supportare la grafica ad 
altissima definizione di densità 640x350 
linee con tavolozza di 64 colori. 

Il circuito 1GA include inoltre le possibili¬ 
tà di grafica standard Hercules e CGA 
per garantire la necessaria compatibilità 
con gli esistenti pacchetti software e con 
la sua grafica EGA ad altissima definizio¬ 
ne permette di sfruttare tutte le possibilità 
dei nuovi pacchetti software Desktop Pu- 
blishing e CAE/CAD. 

11 PC 1640 ECD, che si affianca al PC 
1512, è disponibile in 3 diversi modelli 
con singolo/doppio floppy disk da 360 
Kbytes o hard disk da 20 MByte e viene 
sempre fornito completo di monitor grafi¬ 
co avanzato a colori compatibile EGA, 
tastiera italiana e mouse, software MS- 
DOS 3.2 e GEM e manuale d’uso in lin¬ 
gua italiana. 

Prezzo: da L. 1.599.000 +IVA. 



PCW 9512 

Wordprocessor 
«scrittura & intelligenza» 

1 PCW 9512 è un sistema integrato 
di scrittura che include una stam¬ 
pante a margherite intercambiabili per 
una stampa di alta qualità, monitor a fo¬ 
sfori bianchi ad alla definizione per la mi¬ 
glior chiarezza d’immagine con possibilità 
di 32 righe da 90 colonne di testo, un’uni¬ 
tà a dischetti da 3” di capacità, 1 MByte 
con possibilità di memorizzare fino a 700 
pagine di testo, unità di elaborazione con 
512 Kbyte di memoria RAM, programma 
di scrittura con le più avanzate possibilità 
di elaborazione di lesti e tastiera italiana 
con tasti funzione specifici per i program¬ 
mi forniti. 

11 suo programma di scrittura Locoscript 
2 permette di usare il PCW 9512 come 




A sinistra: Amstrad PCI 640 
Al centro: Word processor PCW 9512 
Sopra: Stampante LQ 3500 
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una comune macchina per scrivere con 
tutte le possibilità di composizione, corre¬ 
zione ed archiviazione testi e grazie al 
programma Locospell, comprensivo di un 
dizionario di 78.000 parole e sinonimi in¬ 
glesi, permette di avere un sistema che ef¬ 
fettua la correzione automatica di ogni te¬ 
sto in lingua inglese. 

Il nuovo PCW 9512, che si affianca al si¬ 
stema base PCW 8256 di uso generale, 
viene fornito completo di monitor, tastie¬ 
ra italiana, stampante di qualità a mar¬ 
gherita, programmi Locoscript 2, Loco¬ 
spell, Locomail e manuale d’uso in lingua 
italiana. 

Prezzo: Lire 1.099.000 + IVA, 


Stampante 

LQ 3500 a 24 aghi 

H a Amstrad presenta la nuova stam¬ 
pante LQ 3500 a matrice di punti, 
realizzata con la avanzata tecnologia a 24 
aghi che permette di ottenere una stampa 
di qualità lettera. 

La stampante LQ 3500 fornisce la libertà 
di stampare nella forma adatta ad ogni 
necessità, spaziando dalla stampa «draft» 
a 160 car./sec. a quella «letter quality» 
(LQ) a 54 car./sec., incluso la stampa di 
ogni tipo di grafico. 

La LQ 3500 accetta tutti i codici di con¬ 
trollo degli standard IBM grafico ed Ep¬ 
son, offrendo più di 100 diverse combina¬ 
zioni di stili di caratteri, compresa la 
stampa in grassetto, corsivo, sottolineato 
e compresso, ed è compatibile con i più 
diffusi pacchetti di software applicativo. 
La stampa avviene su un ampiezza massi¬ 
ma di 80 colonne a 10 cpi, si possono 
usare indifferentemente fogli singoli o 
moduli continui e la sua speciale realizza¬ 
zione permette un facile inserimento ed 
allineamento della carta. 

La stampa LQ 3500 funziona con l’intera 
gamma di Personal Computer e sistemi 
Wordprocessor della Amstrad e con qual¬ 
siasi altro Personal e Home Computer do¬ 
tato di interfaccia standard parallela. 
Prezzo: Lire 749.000 +IVA 


Mega ST 
con 1, 2 e 4 MB 


H a linea St dell’Atari è il frutto di un 
attento e intenso lavoro d’equipe 
composta da tecnici, progettisti e vendito¬ 
ri. Non a caso, tutti i modelli ST vantano 
una tecnologia d’avanguardia. 

1 nuovi Mega ST, che sono il prosegui¬ 
mento logico della serie di computer Atari 
con il proprio sistema operativo TOS, 
hanno una memoria di 1, 2 e 4 Megabyte. 
I nuovi Mega ST si differenziano sia per 
le caratteristiche tecniche che per quelle 
esterne. 

1 rack di tutte le unità sono infatti assem¬ 
blate con una tecnica che ricorda quella 
del meccano. 

La configurazione del sistema è cosi rac¬ 
chiusa in una combinazione compattata e 
ancora più flessibile. 

La tastiera con tasti alfanumerici è ora se¬ 
parabile dall’unità centrale e grazie al suo 
disegno ergonomico è in grado di soddi¬ 
sfare anche le esigenze più elevate di tem¬ 
po di utilizzo. 

Le varie schede sono situate nell’unità 
centrale assieme al processore centrale, i 
controller e i driver dei dischi. Sul retro si 
trovano invece tutte le porte necessarie: 
parallela e seriale, nonché il connettore 
per la tastiera e per i drive esterni. 

Sono ovviamente utilizzabili anche tutte le 
periferiche disponibili, il bus viene guida¬ 
to dall’esterno. 

A completamento del Mega ST, Atari of¬ 
fre anche un nuovo disco rigido da 20 
Mb, l’Atari SH 205, il cui design è stato 
adattato alla configurazione complessiva 
della macchina. Nel rack sono alloggiati i 
controller e l’interfaccia. 

Il trasferimento dei dati avviene con la ve¬ 
locità tecnica del DMA (Direct Memory 
Acces). I dati vengono cosi trasferiti da/a 
memoria centrale da/a disco senza alcuna 
interferenza. 

I tempi di acquisizione dei dati sono quin¬ 
di diventati notevolmente più veloci. 

Prezzo: a partire da L. 690.000 + IVA 


PC ATARI 

con sistema operativo MS-DOS 


on questo personal computer, Atari 
^9 offre una reale alternativa a tutti gli 
acquirenti che in seguito desiderano utiliz¬ 
zare software per il sistema operativo MS- 
DOS. 


Il PC Atari presenta indubbi vantaggi e 
migliorie tecniche. È infatti compatibile 
con le schede grafiche CGA, EGA ed 
Hercules. Inoltre possono essere impiegati 
software che utilizzano diversi tipi di gra¬ 
fica, senza dover ricorrere a complicati e 
costosi adeguamenti dell’hardware. 

Il clock del processore può essere portato 
a 8 MHz, con un netto miglioramento, 
quindi, delle prestazioni durante l’esecu¬ 
zione di programmi complessi. 

Non con questo che si debba rinunciare ai 
programmi che lavorano alla velocità di 
4,77 MHZ. 

Anche sotto il profilo estetico, il PC Atari 
è estremamente raffinato. 

Il rack, relativamente piccolo e dal design 
indovinato, appare discreto e compatto. 
Con i suoi 512 Kb RAM, il PC Atari si 
presenta con una memoria ampiamente 
sufficiente. 

Poiché 256 Kb di memoria aggiuntiva so¬ 
no dedicati alla gestione dello schermo, il 
lavoro della memoria centrale risulta note¬ 
volmente alleggerito. 

La risposta dello schermo viene quindi ac- 
cellerata. 

Anche sul PC è stata riportata la qualità 
dello schermo raggiunta dai computer ST. 
Tutte le periferiche della serie di computer 
ST possono essere collegate al PC. So¬ 
prattutto per quanto riguarda gli ottimi 
floppy della serie ST Atari a 3 1/2 pollici. 
11 disco rigido può infatti essere collegato 
direttamente. 

Con l’installazione del floppy a 3 1/2 e 5 
1/4 pollici, Atari getta il primo ponte ver¬ 
so l’integrazione con sistemi diversi. 

Il PC Atari, grazia al know-how della se¬ 
rie ST, è completamente compatibile e si 
distacca dallo standard industriale. 

Prezzo: comprensivo di monitor PCM 
124, Lire 990.000 (IVA esclusa). 
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O 

Commodore 


Modulo di espansione 
RAM COMMODORE 1764 


F . | uesto nuovo modulo mette a disposi- 
LyJ zione degli utilizzatori di 64 e 64C 
ben 256Kb di memoria per dati e pro¬ 
grammi, cinque volte più della memoria 
disponibile attualmente! 

Il modulo di espansione è stato disegnato 
per essere facilmente inserito proprio co¬ 
me si fa per una normale cartuccia giochi. 
Il modulo 1764 viene fornito con due pac¬ 
chetti software: il primo è un programma 
DOS che permette di usare il modulo 
RAM come un disco RAM: questo signi¬ 
fica che la memoria aH'interno del modu¬ 
lo è trattata come uno «pseudo disco» per 
consentire una frequente archiviazione dei 
dati. 

Siccome la memoria centrale lavora 1000 
volte più velocemente di un disco, ne deri¬ 
va che il caricamento ed il salvataggio dei 
programmi è veramente istantaneo. 

Il secondo pacchetto, chiamato disco 
GEOS RAM, è stato disegnato per sfrut¬ 
tare al massimo le applicazioni GEOS. 

Il pacchetto GEOS, Graphic Environment 
Operating System, fornito con il C64 uti¬ 
lizza dei menu pull-down e consente la se¬ 
lezione dei programmi attraverso icone 
per agevolare sia gli utilizzatori meno 
esperti che quelli che non vogliono usare 
comandi complicati. 

Poiché GEOS richiede un disco per con¬ 
sentire accessi frequenti, un disco RAM è 
ideale per aggiornare l’attuale programma 
GEOS. 


MPS 1200 

Stampante ad aghi per C64/128 

Caratteristiche tecniche 

• Stampante ad aghi bidirezionale 

• Interfacce: Seriale Commodore 

• Avanzamento della carta: a rullo a 
trattore 

• Testina di stampa a 9 aghi 
•Velocità: 120 cps; (NLQ: 24 cps) 
•Matrici di caratteri: normale: 9x9; 

NLQ: 17x17; doppia passata: 9x9; 
battuta a scalare: 9x10; ingrandita: 
9x19; grafica: 8x9 


Mouse COMMODORE 1351 

H reare disegni o correggere veloce¬ 
mente dei documenti, da oggi è faci¬ 
le; basta puntare il cursore e premere un 
tasto del nuovo MOUSE 1351, riducendo 
notevolmente i comandi fino ad ora ne¬ 
cessari per operare con i C64. 

11 MOUSE 1351, collegabile sia al C64 
che al CI28, è dotato di due tasti funzio¬ 
ne e della classica sfera che permette il ro¬ 
tolamento su una superficie piana per 
consentire di far muovere il cursore sullo 
schermo. 

Muovendo il cursore si seleziona l’area di 
lavoro e con i due tasti si accede alle ope¬ 
razioni rese disponibili dal software. 

11 MOUSE opera in due modi, come joy¬ 
stick o in modo proporzionale. 

In modo proporzionale il MOUSE usa 
una tecnica avanzata per comunicare il 
suo movimento al controllo delle applica¬ 
zioni software in modo facile, preciso e 
veloce consentendo quindi di sfruttare al 
meglio il nuovo software GEOS. 


Disk Drive COMMODORE 1581 

H 'introduzione di questo nuovo disk 
1581 da 3.5” mette a disposizione 
dei modelli C64 e CI28 il meglio della tec¬ 
nologia sviluppata sui dischi. 



• Tipi di caratteri: modo testo 
(maiuscolo/minuscolo) modo grafico 
(maiuscolo/grafico) caratteri interna¬ 
zionali (ASCII) 

• Stili di battuta: pica, elite, compres¬ 
so, italico, indici superiori e inferiori, 
inverso, proporzionale 

• Spazio tra caratteri: da 5 a 20 cpi 

• Spazio tra righe: programmabile 

• Larghezza massima della carta: A4 

• Dimensioni: altezza: 90 mm; larghez¬ 
za: 402 mm; lunghezza: 255 mm 

• Peso: 3,7 Kg 


I principali vantaggi di questa tecnologia 
sono costituiti da una maggior velocità 
nel trasferimento dei dati, una maggior 
capacità di memoria per l’archiviazione ed 
una miglior protezione da incidenti fortui¬ 
ti che possono occorrere al disco stesso. 
Rispetto ai disk da 5” 1/4, i nuovi da 
3.5” sono più compatti e hanno una soli¬ 
da protezione per prevenire deformazioni 
o abrasioni dei supporti magnetici. 

La capacità del modello 1581 e di 880 Kb, 
ideale per gli utilizzatori più esigenti. 
L’interazione tra programmi e disco è più 
veloce grazie alla velocità di trasferimento 
dei dati che, nel modello 1581, è tre volte 
superiore rispetto a quella degli attuali 
disk drive del C64. 

II nuovo 1581 è totalmente compatibile 
con i modelli CI28, C64, PLUS4, e CI6. 


Nuove periferiche che aumentano 
la potenza e le prestazioni dei 
modelli C64 e C128 

Q a Commodore ha recentemente am¬ 
pliato le capacità dei modelli C64 e 
CI28 con l’introduzione di tre nuove peri¬ 
feriche con alte prestazioni: 
un DISK DRIVE da 3.5” 
un modulo di espansione RAM 
un MOUSE a due tasti. 

Queste tre nuove periferiche, aumentando 
la potenza e le prestazioni dei modelli C64 
e C128, le renderanno più versatili. 
Inoltre queste tre novità sono solo l’inizio 
di un programma di sviluppo che intende 
rendere questi modelli sempre più attratti¬ 
vi sia nei confronti dei nuovi Clienti che 
dei milioni di utilizzatori esistenti. 



IN ESCLUSIVA 


PER I LETTORI DI LIST 

Inviaci il tuo 
indirizzo! 

LO RICEVERAI! 
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Honeywell 


Bull 


Nuovi Personal PC-SUPERTEAM 


I nuovi personal computer AP-X e SP sono dotati, rispettivamente, di proces¬ 
sori 80286 e 80386. Essi affiancano i modelli EP e XP già presenti sul merca¬ 
to, portando a quattro i modelli della gamma PC Superteam, che oggi si pre¬ 
senta come una delle linee più evolute e complete sul mercato italiano. Veloci 
e pienamente compatibili con gli standard di mercato, sono dotali di un inte¬ 
ressante corredo software e offrono, per primi, possibilità di riconfigurazione 
analoghe a quelle dei grandi sistemi. 



Stampante 

HONEYWELL BULL 4/62 
word processing e grafica 


Affidabile e silenziosa, la nuova 4/62 può stampare anche a colori, offrendo 
alta velocità in «letter quality», elevata qualità di stampa, capacità di gestire 
contemporaneamente carta di diversi formati, compatibilità con gli standard. 
Progettata a Pregnana e prodotta a Caluso, all’interno di uno dei maggiori 
complessi produttivi europei del settore, la nuova 4/62 si avvale di una testina 
di stampa a 18 aghi su due righe sfalsate, che consente di raggiungere una ve¬ 
locità di 120 caratteri al secondo in «letter quality» con un solo passaggio. 

1 caratteri sono disegnati su una matrice di 60 x 18 punti, e la qualità di stam¬ 
pa che ne deriva è elevatissima. È questo il risultato della ricerca Honeywell 
Bull sulla densità della matrice, sulla posizione dei punti e sul disegno dei 
font. Sono disponibili numerosi set di caratteri, che possono essere utilizzati 
sia tramite cartucce, sia attraverso dischetti per personal computer. La stam¬ 
pante è compatibile con la Graphic Printer IBM e con la Epson JX80 a colo¬ 


ri. 


I.'orientamento al word processing è accentuato dalle capacità di trattamento 
carta, analoghe a quelle della già nota 4/66. 

La 4/62 può infatti gestire il modulo continuo con larghezza sino a 154 co¬ 
lonne, i fogli singoli formato A3 e A4 in orizzontale e in verticale, il foglio 
A2 in verticale e il foglio legale aperto. La carta può essere introdotta anche 
attraverso un inseritore automatico ad uno o due cassetti che non esclude l’in¬ 
serimento manuale dei fogli singoli e il passaggio del modulo continuo. 



Personal System/2: la nuova 
generazione di PC IBM 

modelli della serie Personal System/2, 
insieme alle nuove unità periferiche 
come il lettore di dischi ottici, la stampan¬ 
te grafica silenziosa 5202 e il plotter a co¬ 
lori 6186, sono stati recentemente a dispo¬ 
sizione dei visitatori dello SMAU che han¬ 
no potuto vedere l’impiego nelle piu di¬ 
verse aree d’applicazione: dalla medicina 
generale agli enti locali, dai programmi 
educativi per la scuola all’ingegneria e al 
trattamento integralo di testi e immagini. 
In particolare, allo SMAU è stato presen¬ 
tato il nuovo sistema IBM per l’editoria 
individuale (il «desk-top publishing»), che 
utilizza stazioni di lavoro attrezzate con 
Personal System/2 e PC IBM, dotati di 
specifici programmi gestionali e applicati¬ 
vi e in grado di produrre pubblicazioni di 
qualità tipografica e di gestire elettronica- 
mente immagini e grafici. Il sistema desk¬ 
top publishing IBM comprende la nuova 
stampante laser di pagine 4216-020, 
l’adattatore stampante e il suo program¬ 
ma, i pacchetti applicativi Microsoft Win¬ 
dows e Aldus Pagemaker, il «mouse» per 
la scelta rapida del menu e istruzioni di¬ 
rettamente dal video. 


La banca automatica e 
l'editoria aziendale 

U’interno di una delle aree è stata 
presentata una «simulazione» di 
agezia bancaria attrezzata con un sistema 
IBM 4700 e un Personal System/2 per 
operazioni di sportello, gestione elettroni¬ 
ca delle firme, applicazioni automatiche 
di cassa, consulenza alla clientela e self- 
service. 

Un grande interesse per l’editoria azienda¬ 
le: attraverso sistemi di «in-house publi¬ 
shing» si possono progettare e produrre 
cataloghi, manuali, riviste, documentazio¬ 
ne. Oltre ai sistemi informatici (elaborato¬ 
ri e video grafici) per rimpaginazione, la 
scelta dei caratteri di stampa e la veste 
grafica, sono impiegati i nuovi scanner 
IBM, per l’acquisizione di immagini e te¬ 
sti in qualsiasi formato, trasferibili auto¬ 
maticamente su video. Con l’impiego di 
una stampante ad alta risoluzione, la IBM 
4250, vengono eseguite prove si stampa su 
carta speciale alluminata o su pellicola. 

► ►► 
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Progettazione, 
calcolo e design 


H 1 Microcomputer 6150 e i terminali 
m I grafici 5080 e 6154 sono le macchine 
impiegate per dimostrazioni nel campo del 
calcolo scientifico e ingegneristico, della 
progettazione assistita dal calcolatore, del 
design. 

Grazie all’utilizzo di nuovi prodotti soft¬ 
ware si possono effettuare applicazioni di 
grafica avanzata, di progettazione tridi¬ 
mensionale, di simulazione strutturale e di 
integrazione tra progettazione ed editoria 
tecnica (stampa della documentazione e 
dei disegni di manufatti, circuiti, schede). 


Telematica, 
reti e connettività 


pì 1 SETI (Servizi di tele-informatica) è 
LJI una realtà IBM al servizio della 
clientela per la gestione di applicazioni in¬ 
formatiche vitali nei più diversi settori. 
Attraverso collegamenti su base continen¬ 
tale e intercontinentale, vengono offerti 
servizi a distanza per la gestione azienda¬ 
le, l’office automation, l’informatica dire¬ 
zionale. 

Nell’ambito della comunicazione tra siste¬ 
mi informatici allo SMAU sono stati rea¬ 
lizzali collegamenti di elaboratori in rete, 
locali (attraverso il «token ring» IBM) e 
geografiche (con l’impiego del «netview», 
il software specializzato per reti). Un si¬ 
stema IBM 9370 ha gestito invece il 
«traffico-dati» su reti di personal compu¬ 
ter, elaboratori intermedi, periferiche. Ci 
sono stale anche dimostrazioni di control¬ 
lo diagnostica di una rete aziendale, appli¬ 
cazioni di Videotext e di trasmissione inte¬ 
grata a voce e dati. 


È in preparazione 

SUPER 

LIST 

superraccolta di 
programmi 

per supercomputeristi 


MANNESMANN 

TALLY 

Stampanti seriali e matrice di punti 

MT 330-MT 340 



a famiglia di stampanti ad im¬ 
patto a matrice di punti MT 
300 è stata integrata dal modello 
MT 340, progettato per rispondere 
alle applicazioni tipiche dei CED, 
in effetti la testina di stampa a 18 
aghi è in grado di produrre grossi 
quantitativi di stampa ad elevata 
velocità e qualità. 

Affianca la già esistente MT 330 
che, con testina a 24 aghi, è inve¬ 
ce idealmente adatta per soddisfa¬ 
re le necessità di un ufficio moder¬ 
no, in particolare per tutte le esi¬ 
genze di trattamento testo (Word 
Processing). 

La particolare struttura del rullo 
permette di ottenere in entrambi i 
casi un ridottissimo livello di ru¬ 
morosità in funzione della tipolo¬ 
gia applicativa. 

Le MT 330 e MT 340 dispongono di 
un’elevata flessibilità nella gestio¬ 
ne della modulistica potendo im¬ 
piegare sia moduli continui con 
possibilità di strappo facilitato, 
che inserire fogli singoli ed essere 
integrate da un caricatore automa¬ 
tico di fogli singoli a 2 vasche. 

Le diverse qualità di stampa, 2 per 
la MT 340 e 3 per la MT 330, sono 
selezionabili dal pannello o via in¬ 
terfaccia con caratteri di controllo. 

Le matrici di stampa variamente 
definite possono, a seconda del 
modello, permettere di ottenere 


una Alta Qualità, Alta Definizione 
e Qualità Lettera con velocità di 
300, 150 e 75 cps rispettivamente 
per la MT 330 e una Alta Velocità 
e Alta Definizione e rispettivamen¬ 
te 400 e 100 cps per la MT 340. 

La funzionalità di entrambi i mo¬ 
delli è completata dalla possibilità 
d’inserire fonti di caratteri opzio¬ 
nali per stili di stampa diversi tra¬ 
mite delle apposite cassettine. 

Le stampanti MT 330 e MT 340 so¬ 
no compatibili con la maggior par¬ 
te degli elaboratori presenti sul 
mercato tramite vari protocolli 
quali PC-IBM, EPSON ecc. 

Inoltre sia la MT 330 che la MT 
340, progettate e prodotte nella 
fabbirca sita in Germania Ovest 
annoverano la qualità ed affidabili¬ 
tà particolare a tutti i prodotti del¬ 
la gamma Mannesmann Tally. 

• 136 colonne, 300 e 400 cps. 

• Varie velocità di stampa 

• Eccezionalmente silenziose. 

• Elevato carico di lavoro. 

• Stampa bidirezionale ottimizzata. 

• Testina a 24 e 18 aghi rispettivamente. 

• Compatibilità PC-IBM. 

• Trattori di spinta e strappo moduli 

• Possibilità d’inserimento fogli singoli. 

• Caricatore di fogli singoli a 2 vasche 

• Stampa a colori in opzione. 

• Nessuna manutenzione preventiva. 



12 


LIST 11/87 




















NIXDORF 


COMPUTER 


Computer portatile HHC 


O l personal computer HHC (Hand 
Held Computer) è il portatile della 
Nixdorf che presenta importanti innova¬ 
zioni. 

Con un peso di soli 900 gr è la soluzione 
ideale per tutti i professionisti che viaggia¬ 
no ed hanno la necessità di trattare i dati. 
Basato su microprocessore 8088 CMOS, 
incorpora un video ad alto contrasto di 
640 caratteri per riga ed una stampante 
multifunzionale. 


Può usare sia carta termica che nastro in¬ 
chiostrato. 

La memoria RAM può essere ampliata fi¬ 
no a 640 Kb e l’accumulatore integrato 
garantisce 10 ore di autonomia. 

Il software applicativo viene sviluppato su 
EPROM garantendo massima sicurezza. 
L’HHC si propone come lo strumento di 
lavoro più adatto per agenti, ispettori e 
periti assicurativi, consulenti di prodotti 
finanziari, funzionari commerciali ed 
agenti di tentata vendita. 


PC 8810 M55 

Primo di una nuova famiglia 

’AT compatibile ad architettura «in¬ 
crementale» consente, qualora si ne¬ 
cessiti di una maggiore potenza elaborati- 
va, una rapida sostituzione della scheda 
80286 con la scheda 80386. 

La CPU può essere regolata da tastiera in 
modo da consentire il funzionamento con 
una frequenza di clock da 6 a 10 MHz. 

È previsto l’inserimento di una batteria a 
tampone che permette la continuità del la¬ 
voro per due ore circa. 

La memoria RAM si espande sino a 16 
MB; il sistema operativo è l’MS-DOS 3.2, 
ed è supportato anche lo Xenix V. 

Un’ampia gamma di periferiche consente 
una totale modularità del sistema tale da 
rendere P8810 M55 la stazione di lavoro 
ideale per applicazioni gestionali e di ca¬ 
rattere scientifico a garanzia più assoluta 
dell’investimento iniziale. 


PCI, primo Home Computer 
italiano compatibile (MS-DOS) 

poco meno di un anno dall’avvio 

delle attività di Olivetti Prodest spa 
— società dedicata al mercato italiano del 
home computer — il Gruppo Olivetti ha 
varato due importanti iniziative per lo svi¬ 
luppo del mercato informatico di massa: 
la creazione di Prodest International e il 
lancio del primo home computer italiano 
compatibile (MS-DOS). 

Il grande mercato delle famiglie e della 
miriade di piccole attività commerciali, ar¬ 
tigianali e professionali ha espresso esi¬ 
genze nuove: potenza, compatibilità, pro¬ 
grammi, prezzo contenuto. Sono questi i 
criteri che hanno guidato la progettazione 
di PCI. 

I dati tecnici più significativi di PCI sono: 
potenza di 512 Kb (espandibili a 640 Kb), 
cioè praticamente lo stesso livello normal¬ 
mente utilizzato nell'ambito professionale, 
alta velocità (opera con un microprocesso¬ 
re a 8 megahertz), sistema operativo MS- 
DOS 3.2, compattezza (solo due moduli, 
tastiera e monitor con possibilità di di¬ 
sporre di un secondo disk drive), dischetti 
da 3.5 pollici. Il sistema PCI è già com¬ 
pleto sin d’ora di tutte le periferiche e gli 
accessori desiderabili. 

I programmi spaziano dal gioco, alla ge¬ 
stione, alla musica, all’educazione scola¬ 
stica sino ai più sofisticati problemi pro¬ 
gettuali o amministrativi. 

Nella configurazione standard PCI costa 
1.195.000 lire. 
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PHILIPS 


Videowriter Philips: 

il nuovo concetto di scrittura 

ideowriter è uno strumento di scrit¬ 
tura che sintetizza in sé i pregi delle 
tradizionali macchine per scrivere mecca¬ 
niche con ciucili dei moderni computer. È 
estremamente semplice da usare, non ri¬ 
chiede conoscenze di informatica, non ne¬ 
cessita di periodi di training c ha dimen¬ 
sioni contenute, con una estetica moderna 
e professionale. 

Come i personal computer permette una 
maggiore efficienza in termini di tempo e 
di qualità e soprattutto rende meno rigido 
il processo di composizione dei testi. 
Videowriter Philips è costituita da una 
consolle centrale che comprende il moni¬ 
tor con i suoi controlli principali, un disk 
drive, la stampante e il software. 
L’apparato video è composto da un moni¬ 
tor ad alta risoluzione a fosfori ambra su 
fondo nero diviso in due parti: sulla sini¬ 
stra viene mostrato ciò che viene scritto o 
stampato (può mostrare 80 caratteri e 18 
linee), sulla destra vengono mostrate in 
maniera permanente tutte le istruzioni per 
l’uso e i servizi utilizzabili. 

La stampante è estremamente silenziosa, 
permette di utilizzare qualsiasi qualità di 
carta in formato A4 e di stampare su bu¬ 
ste. La sua velocità è di circa 30 cps nel 
modo letter quality e di 60 cps nel modo 
a punti. 

11 disk driver supporta un software da 
3,5” che contiene un dizionario completo 
per controllare eventuali dubbi di ortogra¬ 
fia; il dizionario è disponibile nelle lingue 
inglese, francese, tedesco, spagnolo e ov¬ 
viamente italiano. 

Videowriter ha una capacità di memoria 
di circa 80 pagine formato A4. 



NMS 9100: 

il compatibile IBM 
firmato da Philips 

I aio all’insegna di una esperienza 
professionale, l’NMS 9100 si presen¬ 
ta come «il personal» europeo, firmato e 
garantito dalla Philips. 

Lo standard MS-DOS con cui è totalmen¬ 
te compatibile gli consente di accedere al 
vasto panorama di software e hardware 
già esistente, ampliando a dismisura le 
possibilità di utilizzo sia professionale che 
domestico dell’elaboratore. 

Con il computer NMS 9100 si possono 
eseguire infatti gli innumerevoli program¬ 
mi professionali disponibili senza dover 
attendere lo sviluppo di pacchetti applica¬ 
tivi dedicati vuoi per il calcolo, vuoi per 



la grafica che per il trattamento dei testi. 
Non basta: la famiglia di personal NMS 
9100 è stata concepita tenendo presente il 
reale impiego domestico e perciò con di¬ 
mensioni compatte e aspetto accattivante, 
tale da integrarsi nell’arredamento di casa. 
Caratteristiche professionali ed elevate ve¬ 
locità sono state abbinate in un progetto 
flessibile ed estendibile, tale da soddisfare 
la necessità di ampliare, con la propria at¬ 
tività, anche le prestazioni di questo stru¬ 
mento di lavoro. 

Il processore impiegato è il noto Intel 
8088-2 a doppia velocità (4,77 e 8 MHz); 
la memoria RAM è prevista per una 
espansione fino ad un massimo di 768 
Kbytes sulla scheda madre con cinque slot 
di espansione XT compatibili. Dispone 
inoltre di porta parallela Centronics e di 
porta seriale RS232. 

Le tre configurazioni possibili hanno in 
comune il Reai Time Clock e la scheda vi¬ 
deo mentre differiscono per i drive impie¬ 
gati. 


L’NMS 9105 dispone di 512 Kbytes RAM 
con un disk drive per floppy da 3,5”. 
L’NMS 9110 dispone invece di 768 Kbytes 
di RAM ed è dotato di due drives. 

Per i più esigenti, infine, la versione NMS 
9115 con un drive da 3,5” e un disco rigi¬ 
do da 20 Mbytes con 768 Kbytes di RAM. 
La tastiera utilizzata è di tipo XT compa¬ 
tibile con 83 tasti ed è disponibile nelle di¬ 
verse versioni nazionali. 


MSX e P.C. NMS 9100 

La telematica a portata di tutti 



ulla comunicazione si basa lo svilup¬ 
po professionale e didattico dei 
prossimi anni. 

La grande praticità di un adattatore tele¬ 
matico sta soprattutto nella possibilità di 
espandere all’infinito la quantità di dati a 
disposizione, comunicando con altri siste¬ 
mi anche diversi con un linguaggio comune. 
Un adattatore telematico e un programma 
di comunicazione adeguato consentono di 
dischiudere le porte di questo affascinante 
mondo che fino ad oggi è stato limitato 
ad usi strettamente professionali. 

Oggi è invece possibile, anche per gli uti¬ 
lizzatori dei più piccoli sistemi, accedere a 
banche dati come Videotel e Pagine Gialle 
Elettroniche, per utilizzare i più svariati 
servizi. 
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Società del Gruppo Ferruzzi 


IBM AT 

personal computer compatibile 
basato su 80286 


■ 1 910 ha 512 Kb sulla scheda base, 

| ^una unità floppy disk da 1,2 MB, 
una unità a disco rigido da 20 MB, sei 
slot di espansione, due porte seriali ed 
una parallela, tastiera e monitor mono- 
cromatico ed ergonomico. 

Misura 410x150x400 mm. 

Con la memoria RAM espandibile a 1 
MB sulla scheda base, e la possibilità di 
inserire un disco rigido da 40 MB con ve¬ 
locità di accesso di 28 ms, il 910 è anche 
un perfetto ed economico file server in 
applicazioni di reti locali o come worksta¬ 
tion in applicazioni di calcolo-intensivo 
sia commerciali che scientifiche o di inge¬ 
gneria. 

La velocità di funzionamento può essere 
portata dai 10 a 6 MHz tramite un pro¬ 
gramma di utilità o direttamente da tastie¬ 
ra, ed un LED posto sul frontale del 910 
indica alPutente la scelta di funzionamen¬ 
to in corso. 

11 910 è basato sul microprocessore Intel 
80186 e lo zoccolo per il co-processore 
matematico 80287 è incluso in tutte le ver¬ 
sioni. La memoria RAM standard di 512 
Kb è facilmente espandibile ad 1 MB sulla 
stessa scheda base. La memoria ROM di 
32 Kb può essere ampliata a 128 Kb. 

Il 910 ha spazio per tre unità di memoriz¬ 
zazione dai da 5,25”, tutti accessibili 
dall’esterno. 



all’uso non autorizzato del sistema. 

La chiave protegge la tastiera, il tasto di 
reset, l’interruttore di on/off e l’apertura 
del cabinet. 


Il controller per floppy disk del 910 per¬ 
mette di collegare due unità floppy disk 
da 360 Kb o 1,2 MB. Tutte le versioni 
hanno sei slot di espansione, di cui due 
slot sono compatibili con il Bus XT 8-bit, 
e quattro sono compatibili con il Bus AT 
16-bit. Uno slot AT è occupato dalla 
scheda controller floppy disk che suppor¬ 
la anche due porte seriali ed una paralle¬ 
la, e uno slot AT alloggia la scheda con¬ 
troller per hard disk. 

L’interruttore di accensione cosi come il 
pulsante di Reset sono posti sul frontale 
del 910, assieme alla chiave di protezione 


Il 910 può essere dotato di diversi tipi di 
adattatori per il collegamento di monitor: 
oltre alle schede EGA (enhanced graphic 
adapter), CGA (color graphic adapter), e 
MGA compatibile con la grafica mono- 
cromatica Hercules, è possibile utilizzare 
una scheda multi-display che include la 
compatibilità con MD, CGA, MGA, le 
funzioni Plantronics Colorplus e l’inter¬ 
faccia per penna ottica. 

II 910 è prodotto dalla Multitech che ha 
distribuito in oltre 50 paesi oltre 300.000 
personal computer. 

Prezzo: L. 3.900.000+IVA 


I nuovi 

PERSONAL MONITOR PHILIPS 
monocromatici a schermo piatto 

uattro nuovi monitor mono¬ 
cromatici fanno parte della 
gamma Philips. 

Si tratta di due modelli da 12”: BM 
7913 (a fosfori verdi) e BM 7923 (a 
fosfori ambra) (nella foto) e di due 
modelli da 14”: BM 7713 (a fosfori 
verdi) e BM 7723 (a fosfori ambra). 
Tutti IBM compatibili, in quanto 
dotati di ingresso TTL (presa din 6 
poli). I nuovi personal monitor Phi¬ 
lips sono un reale passo avanti 


nella tecnologia dei diplay in quan¬ 
to offrono all'utilizzatore di un per¬ 
sonal computer tutti i vantaggi 
connessi con l'utilizzo dello scher¬ 
mo piatto: minor riflesso della luce 
ambiente, uno spazio d’immagine 
più grande ed una migliore defini¬ 
zione. Tutti vantaggi estremamen¬ 
te rilevanti per coloro che lavorano 
parecchie ore al giorno davanti ad 
un computer in quanto permettono 
una migliore leggibilità dei dati ed 
un minor affaticamento degli oc¬ 
chi. 

I nuovi monitor Philips a schermo 
piatto hanno una frequenza di li¬ 
nea di 18 KHz, schermo scuro e 


antiriflesso, una risoluzione di 920 
punti per 350 linee verticali e 2000 
caratteri. 

Le dimensioni dei monitor da 12” 
sono 300 x 290 x 276, il peso è di 
6,4 Kg., mentre il prezzo si aggire¬ 
rà sulle L. 235.000. 

Le dimensioni di quelli da 14” so¬ 
no invece 325 x 300 x 305, il peso è 
di 7 chilogrammi. Per questi il 
prezzo si aggirerà intorno a L. 
250.000. 

I nuovi monitor Philips sono tutti 
dotati di un piedistallo di serie a 
due posizioni. Su richiesta posso¬ 
no essere forniti con piedistallo 
basculante e alette parasole. 
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INTRODUZIONE AL SISTEMA 


MS-DOS 


Parte 3 

P. Ciancarini 


In questa serie di lezioni spieghiamo i 
rudimenti del sistema operativo MS-DOS, 
utilizzato da tutti i computer IBM-compatibili, 
che sono quelli prescelti dal Ministero della 
Pubblica Istruzione come standard per il 
Piano Nazionale Informatica per la Scuola 
Superiore. 


1. Il sistema di archiviazione 

I sistema MS-DOS dispone di un sistema di archi¬ 
viazione su disco (l’espressione inglese corrispon¬ 
dente è file System) di tipo gerarchico. Cosa vuol 
dire questa espressione? 

Semplicemente questo: che un dischetto può contenere 
due tipi di oggetti: gli archivi (file) e i contenitori di archivi 
oppure directory. In questo modo l’insieme degli archivi si 
organizza su disco in una struttura ad albero, che è noto¬ 
riamente una struttura dati gerarchica. Si noti che un di¬ 
schetto può essere visto come un contenitore di archivi. 
La figura mostra un esempio di struttura ad albero in cui 
sono rappresentati due dischetti rispettivamente nel drive 
A e B. 



Si noti che le strutture ad albero dei due dischetti A e B 
sono completamente separate. Per passare dall’una all’al¬ 
tra si usa il comando A: oppure B: (si noti che il prompt 
cambia di conseguenza). 

Per comprende come funzionano i comandi che illustrere¬ 
mo nel prossimo paragrafo, bisogna tenere presente che 
in ogni momento esiste un unico contenitore attivo (detto 
directory corrente). 

Si immagini che questo corrisponda ad una specie di frec¬ 
cia che punta un nodo ben preciso dell’albero, che rappre¬ 
senta il contenitore cui fanno riferimento per ipotesi tutti 
i comandi. 

Il directory attivo si cambia solamente con comando CD. 
Un comando che specifica unicamente un file, senza al¬ 
cun prefisso, presuppone che il file sia contenuto diretta- 
mente nel directory corrente, e non in uno dei sottodirec¬ 
tory. Ad esempio, nella figura precedente, se il directory 
corrente è dir.2, si può operare direttamente unicamente 
sul file denominato file2.1. Se occorre agire sul file 2.1.1, 
contenuto nel sottodirectory dir2.1, occorre dare nel co¬ 
mando un cambio d’accesso al file. Questo si ottiene pre¬ 
fissando il nome del file in questo modo: 

dir2.1/file2.1.1 

Si noti che si può sempre indirizzare anche un directory 
esterno a quello corrente, purché si faccia riferimento alla 
radice dell’albero: il directory corrispondente a tutto il dri¬ 
ve (e che ha il suo stesso nome). Per esempio, se siamo 
nel drive B in un qualsiasi directory, possiamo riferire il 
directory dir2.1 contenuto in A nel seguente modo: 

A:dir1/dir2.1 

Va ribadito che il directory corrente cambia solamente col 
comando CD: anche se un’operazione coinvolge altri di¬ 
rectory (tramite il meccanismo dei cammini) questo non 
cambia. 


2. I comandi del DOS 

Come avevamo promesso la volta scorsa, in questo arti¬ 
colo cominceremo a descrivere i principali comandi del 
DOS. 

Di ogni comando daremo la sintassi, cioè il tornato preci¬ 
so del comando e dei suoi argomenti, integrandola con al¬ 
cune spiegazioni sull’effetto del comando stesso. Tali 
spiegazioni faranno riferimento al formato del comando, 
che verrà descritto usando alcune convenzioni usuali. Per 
esempio, il formato 

COMANDO parametro 

indica che il parametro è obbligatorio. Invece se scrivia¬ 
mo il parametro tra parentesi quadre 

COMANDO [parametro] 

stiamo dicendo che il parametro stesso è facoltativo: può 
esserci oppure no, a seconda delle esigenze dell’utente. 
Ovviamente l’effetto sarà differente nei due casi. 
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MS-DOS 


Si noti che usiamo il corsivo per indicare un parametro 
completamente arbitrario, a cura dell’utente. Invece usere¬ 
mo i caratteri normali per indicare una opzione che deve 
essere copiata integralmente, come ad esempio nel co¬ 
mando 

FORMAT |/S| 

in cui l’espressione /S ha un significato ben preciso (non 
può quindi essere sostituita in maniera arbitraria). Infine, 
se più opzioni sono separate dalla barra verticale , vuol 
dire che sono alternative. Per esempio: 

BREAK |ON OFF| 

vuol dire che il parametro, se c’è, può essere o la parola 
ON oppure la parola OFF, ma non entrambe. 


per cambiare il directory attuale del drive d specificalo. 
Se questo manca viene assunto il drive corrente. Se non 
si dà nessun parametro al comando, viene semplicemente 
mostrato il cammino attivo. 

Esempio: 

CD a:prolog/esercizi/parte1 

Diventa attivo il directory chiamato partei, contenuto in 
esercizi, che a sua volta è contenuto nel directory prolog 
del dischetto contenuto nel drive A. 

Parametri: 

d : è il drive che contiene il nuovo directory. 

cammino : il cammino che permette di entrare nel nuovo 
directory. 


COMANDI MS-DOS: 

ASSINGN |x = y| 

Permette all’utente di cambiare il nome logico di un drive. 
Questa possibilità si usa ad esempio coi programmi che 
vogliono a tutti i costi un drive particolare, per esempio il 
drive B, mentre il sistema dispone solamente dei drive A e 
C. Scrivendo, per esempio il comando 

ASSIGN B = C 

tutte le richieste per il drive B vengono reindirizzate al dri¬ 
ve C. 

Il Comando ASSIGN senza parametri fa ritornare il siste¬ 
ma alla situazione iniziale in cui tutti i nomi sono quelli 
originali. Si noti che certi programmi pretendono che i no¬ 
mi fisici corrispondano rigidamente ai nomi logici: in tal 
caso non deve essere attiva alcuna ridenominazione. 

Parametri: 

x il drive da riassegnare 

y il drive fisico cui verranno indirizzati i comandi. 


FIND (/VI |/C| |/N| stringa \\d:\ | cammino j //7e|.exf| ...| 
All’interno dei file specificati viene cercata la stringa , riga 
per riga. Serve per cercare dentro uno o più file un certo 
dato testuale. Per esempio: 

FIND /N “paolo” agenda/dati.dat 

La stringa "paolo” viene cercata all’Interno del file 
dati.dat contenuto nel directory agenda. 

Parametri: 


/V 

/c 

IN 

stringa 

cammino 

file 

.ext 


vengono mostrate su video tutte le linee che 
NON contengono la stringa data. 

Riporta il conteggio di tutte le linee che con¬ 
tengono la stringa data 

Riporta il numero di linea in cui viene trovata 
la stringa data. 

La stringa da cercare (racchiusa tra doppi api¬ 
ci). 

Il cammino che conduce ai file usati nella ri¬ 
cerca 

Uno o più nomi di file in cui cercare la stringa 
data. 

L’estensione del file è opzionale. 


BACKUP \d1\ \cammino\ |filei |d2| |/S| |/M| |/A| \ID:mm-gg- 
aa | 

Si usa per copiare file memorizzati sul disco rigido, sal¬ 
vandoli su un dischetto. Tali file, nel caso vadano perduti 
accidentalmente, possono essere recuperati automatica- 
mente tramite il comando RESTORE. 

Parametri: 


FDISK 

Questo comando senza parametri si usa per inizializzare il 
disco rigido. Poiché la sequenza di istruzioni è piuttosto 
lunga, vi rimandiamo al manuale del DOS per vedere co¬ 
me si usa 

COMP |c/:j | cammino] \ file\.ext\\ \d:\ [cammino] | file\.ext\\ 
FC |c/:] ( cammino] | file].ext ]] |c/:| | cammino | |///e|.exf]] 


di 

d2 

cammino 

file 

/S 


/ M 

ID\mm:gg:aa 


rappresenta il disco fisso 
rappresenta il drive contenente il dischetto 
è il cammino (sequenza di directory) che 
contiene il file 

il nome e l’estensione del file da salvare 
se si sta copiando un directory, questa op¬ 
zione copia anche il contenuto dei sottodi¬ 
rectory eventualmente contenuti in quello 
specificato. 

Copia solamente i file modificati dopo l’ulti¬ 
mo backup 

copia solamente i file scritti dalla data spe¬ 
cificata in poi. 


CHDIR []d:]cammino] 

CD [[d:\cammino] 

Questo comando (che da due forme: CHDIR e CD) serve 


Questo comando (che ha due forme: COMP e FC) serve 
per mettere a confronto il contenuto di due file. Viene 
usato solitamente dopo il comando COPY per assicurarsi 
che i due file siano identici. Si noti che questo comando 
agisce su file: per comparare due interi dischetti bisogna 
usare DISKCOMP. Esempio: 

COMP dati.DAT copia.BAK 

confronta il file dati.DAT col file copia.BAK. 

Parametri: 


d: 


cammino 

file 

.ext 


Rappresenta il drive contenente i file da para¬ 
gonare. I due file possono non essere presenti 
sullo stesso drive. 

Rappresenta il cammino che porta ai file da 
paragonare. 

È il nome dei file da mettere a confronto. 
L’estensione dei file è opzionale. 
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CHMOD d: [cammino] [file[.ext ]] [ + -S] [+ -R] [ + -H] 
[ + I-A] [ + |-V] 

Permette di vedere o modificare gli attributi associati ad 
un file o ad un directory. Per assegnare un attributo, met¬ 
tere un segno + dopo il nome, seguito dalla lettera rap¬ 
presentante l’attributo da cambiare. Per eliminare l’attri¬ 
buto, mettere il segno meno seguito dalla lettera interes¬ 
sata. Esempio: 

CHMOD dati.DAT + R 

dati.DAT diventa un file di sola lettura. 

Se il comando viene invocato senza attributi mostra sem¬ 
plicemente gli attributi correnti dei file specificati. 

Parametri: 

d: Rappresenta il drive contenente il file. 

cammino Rappresenta il cammino che porta al file da 
modificare. 

file È il nome del file da modificare. 

.ext L’estensione del file è opzionale. 

Possibili attributi sono i seguenti: 

S Indica che il file è di sistema (e viene nascosto 

all’utente). 

R File di sola lettura: non può essere modificato 

dall’utente. 

H File nascosto: il DOS non lo mostra all’utente. 

A File non ancora copiato (comando BACKUP) 

dopo l’ultima modifica. 

V Attributo identificatore di volume: è un nome di 

undici caratteri che identifica un disco. 

<dir> Directory: il file contiene informazioni sulla 

struttura ad albero. Questo attributo non può 
essere cambiato. 

BREAK [ON ; OFF] 

È uno dei cinque comandi di configurazione. 

Permette all’utente di attivare o disattivare a piacere la 
funzione di interrompibilità delle funzioni DOS. L’interru¬ 
zione si ottiene tramite la combinazione di tasti 
<CTRL> < BREAK> 


Normalmente il DOS accetta questa combinazione sola¬ 
mente durante l’input/output, durante la stampa oppure 
durante le operazioni sui dispositivi ausiliari (valore de¬ 
fault OFF). Il comando senza parametro mostra lo stato 
corrente dell’opzione di interrompibilità. 

Parametri: 

ON <CTRL> < BREAK> funziona con tutte le funzioni 
DOS. 

OFF L’interruzione è accettata solamente nei casi descrit¬ 
ti sopra. 

PROMPT [ testo-speciale} 

Il prompt del sistema viene alterato secondo quanto spe¬ 
cificato nel testo-speciale. Questo può contenere dei me- 
tacomandi nella forma $c, dove c può essere una delle se¬ 
guenti cose: 

$ il carattere dollaro 

t orologio 

d data 

p directory corrente 

v numero di versione del DOS 

n lettera del drive attivo 

g carattere 

/ carattere “<”. 

b carattere “ ”. 

q carattere “ = ". 

h cancellazione carattere precedente 

e carattere <ESCape> 

— sequenza di caratteri ASCII ccarriage ruturn> <line 
feed> 

In pratica ogni comando permette di inserire nel prompt 
l’oggetto corrispondente. Esempio: 

PROMPT $n$d$g 

trasforma il prompt nella sequenza seguente: 

< lettera drivexdata corrente> <carattere”>”> 

CLS 

Serve per cancellare lo schermo. Se sono attivi due colori 
differenti per lo sfondo ed il foreground, viene mostrato 
solamente quello dello sfondo. 




Amici miei! Da quando 
leggo LIST non ho più 
problemi di 
programmazione 

....HO DECISO DI ABBONARMI!!! 
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Prolog e Turboprolog _ 3“ lezione 

L'ambient 



1.3 Le opzioni 
del Menu 


Le varie opzioni si selezionano usando i 
tasti cursore sinistra/destra e poi il tasto 
«return», oppure direttamente mediante il 
tasto corrispondente all’iniziale del co¬ 
mando. Certe opzioni scatenano l’apertu¬ 
ra di ulteriori sottomenu. 


Si usa durante la fase di sviluppo e de¬ 
bugging per attivare la finestra Dialog allo 
scopo di utilizzare il programma contenu¬ 
to ne\VEditor. Se il programma non è sta¬ 
to ancora compilato, oppure è stato mo¬ 
dificato tramite Editor dopo l’ultima 
compilazione, viene automaticamente atti¬ 
vato il compilatore. Se l’Editor non con¬ 
tiene alcun programma, viene chiamato il 
file default WORK.PRO e compilato un 
file vuoto: solo a questo punto si attiva la 
finestra Dialog. Si noti che l’ambiente 
Dialog si attiva solamente al termine di 
una compilazione corretta. 


Compile 

Si usa per compilare un programma. Nel¬ 
la finestra Message compare il messaggio 

Compiling «nome file» 

Al termine delle operazioni di compilazio¬ 
ne, il codice che risulta è lasciato in me¬ 
moria oppure riversato su disco (con mo¬ 
dalità .OBJ oppure .EXE), a seconda 
dell’opzione scelta col sottomenu Options. 


Si usa per attivare XEditor, allo scopo di 
creare o modificare un programma. Sele¬ 
zionando questa opzione si entra in modo 
di editing: il cursore viene posto all’inizio 
del programma. A questo punto si posso¬ 
no usare i comandi editing. La prima riga 
dell’Editor contiene delle informazioni sul 


di Paolo Ciancarini 


Viene attivato un sottomenu che contiene 
una serie di opzioni concernenti la memo¬ 
ria permanente su disco oppure la stam¬ 
pa. Le opzioni sono mostrate nella figura 
seguente: 


Run 

Compile 

Edit 

Options 

Files 

Setup 

Quit 


Editor 


Text: 0 Free: 65375 Inden t Inserì 


W 


Load 

Save 

Directory 

Print 

Copy 

Renarne 

File Name 

Module List 

Zap file in Editor 

Erase 

Operating System 


og 


Message 


Trace 


testo: il campo Text dice quanti caratteri 
sono stati scritti, il campo Free quanti ca¬ 
ratteri rimangono liberi (il massimo per 
un programma è 64K ovvero 65375 carat¬ 
teri). Si noti che questi campi nella versio¬ 
ne 1.1 e successive sono stati sostituiti da 
campi Line e Column, che stabiliscono la 
posizione del cursore all’interno del file. 
Il messaggio Indent appare quando l’Edi¬ 
tor è in modalità di autoindentazione: il 
tasto «RETURN» pone il cursore a capo¬ 
riga successiva in corrispondenza del ca¬ 
poriga precedente. II messaggio Insert ap¬ 
pare quando l’Editor è in stato di inseri¬ 
mento caratteri. L’ultimo messaggio a de¬ 
stra è il nome nel file che si sta editando. 
All’inizio è WORK.PRO perché questo è 
il nome default contenuto del file di con¬ 
figurazione (vedi sotto). 


Riguarda le opzioni di uscita della compi¬ 
lazione citate precedentemente: il codice 
compilato può essere lasciato in memoria, 
oppure riversato su disco in modalità rilo- 
cabile (.OBJ) oppure assoluta (.EXE). Si 
apre un sottomenu che chiede di selezio¬ 
nare la destinazione del codice oggetto: 
memoria, .OBJ oppure .EXE. L’opzione 
attiva compare in cima al sottomenu. Le 
versioni 1.1 e successive contengono una 
opzione ulteriore, Project, che serve per 
compilare un programma composto da 
più file. 


Figura 2.2 il sottomenu FILES A 

Discutiamole brevemente una per una: 

Load 

Copia un file dal disco all’Editor. 
L’estensione default è .PRO, ma vengono 
accettate specifiche alternative sia 
dell’estensione che del disco, directory o 
file. Per cambiare il directory attivo si 
può usare prima l’opzione Directory. Esi¬ 
ste una maniera alternativa di caricare un 
insieme di file (block read). 

Save. 

Copia un file dall’Editor al disco. 
L’estensione default è .PRO. Si noti che 
prima del salvataggio viene automatica- 
mente creata una copia di backup (esten¬ 
sione . BAK) della vecchia versione del fi¬ 
le. Esiste una maniera alternativa di salva¬ 
re solo parte del contenuto dell’Editor 
(block write). 

Directory. 

Mostra i file contenuti in un disco o di¬ 
rectory (che diventa il directory attivo). 
L’estensione default è *.PRO. 

Print. 

Stampa il contenuto dell’Editor. Non so¬ 
no previste funzioni di formattazione. 
Esiste una maniera alternativa di stampare 
solo parte del contenuto dell’Editor 
(block print). 

Copy. 

Permette di duplicare un file. 

Renarne. 

Permette di ridenominare un file. 
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Run Compile Edit Options Files Setup Quit 




rurboProlog version 1.0 

Colors 

Window size 

Directories 

Miscellaneous settings 

Load configuration 

Save configuration 


Text: 0 Free: 65375 Inden t Inserì W 






Fig. 2.3 II sotlomenu di Setup 


File Name. 

Cambia il nome del file contenuto 
nell'Editor. 

Modale List. 

Permette di creare o modificare i file che 
contengono la lista dei file componenti un 
progetto. Il sottodirectory assunto con de¬ 
fault è quello specificato per i file .OBJ, 
mentre l’estensione default è .PRJ. 

Zap File in Fditor. 

Cancella il contenuto del VEditor, senza 
possibilità di recupero. 

Frase. 

Cancella un file al disco, senza possibilità 
di recupero. 

Operating System. 

Attiva temporaneamente il DOS. Si noti 
che il sistema TURBOPROLOG rimane 
in memoria. Se c’è memoria sufficiente, è 
persino possibile eseguire altri programmi 
e poi tornare in ambiente Prolog (si ricor¬ 
di però che il TURBOPROLOG occupa 
almeno 348K). 

Setup 

Permette di configurare l’ambiente, perso¬ 
nalizzandolo. I cambiamenti sono tempo¬ 
ranei (validi solamente per la sessione at¬ 
tuale) oppure permanenti, se si memoriz¬ 
zano su un file di configurazione. Si apre 
un sdttomenu, come illustrato nella fig. 2.3. 
Colors. 

Si possono alterare i colori di sfondo e/o 
del testo di tutte le sei parti in cui lo 
schermo è suddiviso. Questa opzione ri¬ 
chiede naturalmente la disponibilità di un 
monitor a colori. I valori default sono 
adatti ai monitor monocromatici. 

Window size. 

Si possono alterare le dimensioni di cia¬ 


scuno dei 5 sottoambienti, per espanderle 
a destra, prima muovere la cornice verso 
sinistra usando SHIFT-CURSOR, poi 
espandere usando CTRL-CURSOR. Le 
operazioni inverse permettono di restrin¬ 
gere la cornice. 

Directories. 

Permette di esaminare il contenuto dei di¬ 
schi. 

Miscellaneous Setlings. 

Contiene tre sottoopzioni: 

IBM-CGA adapter. 

Permette di attivare correttamente la 
scheda grafica a colori Hercules 
(CGA). Questa scheda crea un effet¬ 
to neve quando un programma cerca 
di scrivere direttamente sullo scher¬ 
mo. Questa opzione elimina l’effetto 
fastidioso, ma rallenta l’esecuzione. I 
monitor monocromatici non ne han¬ 
no bisogno. 

AUTOLOAI) message. 

I messaggi di errore sono normal¬ 
mente caricati dal file 
PROLOG.ERR. Se viene attivata 
questa opzione, questo file viene cari¬ 
cato in memoria all’inizio della ses¬ 
sione. Certo si perde spazio di memo¬ 
ria, ma si velocizza l’esecuzione. 
Stack size. 

Per concedere maggiore spazio di me¬ 
moria al sistema, si può scegliere di 
assegnare a questa struttura dati in¬ 
terna un valore compreso tra 600 e 
4000 paragrafi (1 paragrafo =16 
byte). 

Load Configuration. 

Legge la configurazione iniziale contenuta 
in un file (il default è PROLOG.SYS). 
Possono esistere più file di configurazio¬ 


ne: per esempio, una potrebbe contenere 
una finestra di editing a tutto schermo, 
per facilitare la creazione del programma, 
mentre un’altra crea una finestra di trac¬ 
ciamento sovradimensionata, per analizza¬ 
re meglio l’esecuzione dei programmi. 
L’opzione serve per caricare le diverse 
configurazioni durante la sessione. 

Save Configuration. 

Salva le opzioni attive di configurazione. 

I contenuti di questi file sono descritti 
estesamente nell’appendice D del manua¬ 
le. Tali informazioni possono rendersi uti¬ 
li nel caso occorra editare separatamente 
le configurazioni. 

Quii 

Serve per tornare in ambiente DOS. 

1.4 II sottoambiente di 
editing 

1 comandi vengono ottenuti mediante 
combinazione di alcuni caratteri speciali 
con certe lettere. Per il lettore sarà forse 
una piacevole sorpresa scoprire che i co¬ 
mandi di editing del TURBOPROLOG 
sono gli stessi del famoso programma di 
elaborazione di testi WORDSTAR lv1 . 
Inoltre, anche chi è familiare col pro¬ 
gramma SIDEKICK™ non si troverà ma¬ 
le. 

Si ricordi che è sempre possibile ottenere 
alcune informazioni ausiliarie sul signifi¬ 
cato dei comandi premendo il tasto spe¬ 
ciale FI (funzione help). Come succede 
con tutte le finestre, la maniera più ovvia 
di uscire dallo stato di editing è premere il 
tasto «Esc». 

I comandi di editing sono divisi in 5 grup¬ 
pi: 

• Spostamento del cursore 

• Inserimento e cancellazione di caratteri 
e linee 

• Manipolazione di blocchi 

• Ricerca e sostituzione di testo 

• Vari 

1) Spostamento del cursore 

Questo gruppo di comandi controlla il 
movimento del cursore all’interno della fi¬ 
nestra di editing. Ciascun comando ha 
due varianti: una combinazione di tasti 
basata sul tasto CTRL, oppure una ver¬ 
sione basata sui tasti cursore. Di solito si 
usa maggioramente quest’ultima. 

• Spostamento di un carattere: si possono 
usare i 4 tasti cursore oppure le seguenti 
combinazioni: 

cursore a sinistra: CTRL-S 
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cursore a destra: 

CTRL-D 

cursore su: 

CTRL-E 

cursore giù: 

• Altri spostamenti: 
parola a sini¬ 

CTRL-X 

stra: 

CTRL-A oppure 
CTRL- — 

parola a destra: 

CTRL-F oppure 
CTRL— 

pagina su: 

CTRL-R oppure 
PGUP 

pagina giù: 

CTRL-C oppure 
PGDN 

inizio riga: 

CTRL-Q S oppure 
HOME 

fine riga: 

CTRL-Q D oppu¬ 
re END 

inizio testo: 

CTRL-Q R oppure 
CTRL-PGUP 

fine testo: 

CTRL-Q C oppure 
CTRL-PGDN 

vai alla riga n: 

F2 n¥2 

2) Inserimento e cancellazione di caratteri 
e linee 

Queste combinazioni 

permettono di modi- 

ficare il testo già scritto, inserendo e can¬ 

cellando caratteri o linee. 

cancella carattere 

CTRL-G oppure 
DEL 

cancella a sinistra 

CTRL-H oppure 
BACKSPACE 

cancella parola 

CTRL-T 

cancella riga 

CTRL-Y 

cancella fine riga 

CTRL-Q Y 

inserì ON/OFF 

1NSERT 

inserisci riga 

C'TRL-N 


3) Manipolazione eli blocchi 
I comandi di questo gruppo manipolano 
interi blocchi di testo. 1 blocchi si posso¬ 
no muovere, copiare, cancellare, salvare 
su disco e stampare. La lettura di un 
blocco da un disco si ottiene mediante 
una procedura comprendente tre fasi: 1) 
occorre invocare l’editor ausiliario; 2) ca¬ 
ricare i file nell’editor ausiliario; 3) mar¬ 
care il blocco da copiare e procedere col 
trasferimento nel testo principale. 11 tasto 
F9 effettua automaticamente le prime due 
fasi. 


inizio blocco: 

CTRL-K B 

fine blocco: 

CTRL-K K 

sposta blocco: 

CTRL-K V 

copia blocco: 

CTRL-K C 

cancella blocco: 

CTRL-K Y 

leggi blocco da disco: 

CTRL-K R 

scrivi blocco su disco: 

CTRL-K W 

stampa blocco: 

CTRL-K P 


4) Ricerca e sostituzione di testo 
Questi comandi si rivelano utili nelle ope¬ 
razioni di ricerca di parti specifiche del te¬ 
sto, e nell’eventuale loro rimpiazzamento 


generale. Il comando di ricerca (CTRL-Q 
F) può cercare stringhe lunghe fino a 25 
caratteri. 

trova una stringa F3 oppure 

CTRL-Q F 

ripeti la ricerca SH1FT F3 

oppure 

CTRL-L 

ricerca e rimpiazza F4 oppure 

CTRL-Q A 

ripeti ricerca e rimpiazza SHIFT F4 

oppure 

CTRL-L 

5) Vari 

I seguenti comandi non appartengono a 
nessuno dei gruppi precedenti. 


fine edit 

FIO 

editor ausiliario 

F8 

esci dall’ambiente 

ESC 


gramma: la creazione del testo (funzione 
Edit), la compilazione (funzione 
Compile), l’esecuzione (funzione Run). Se 
il programma contiene degli errori sintat¬ 
tici, questi vengono mostrati nella finestra 
Message. In tal caso occorre tornare 
ne\VEditor per correggerli. La fase di 
compilazione, se il programma non con¬ 
tiene errori sintattici, crea codice eseguibi¬ 
le che può essere memorizzato su disco 
(per essere eseguito direttamente dal DOS, 
all’esterno del TURBOPROLOG) oppure 
eseguito direttamente all’interno del siste¬ 
ma. L’opzione Run attiva la finestra Dia- 
log, che serve sia per porre le interroga¬ 
zioni che per ottenere i risultati. L’esecu¬ 
zione può attivare la traccia, se il testo del 
programma contiene la direttiva trace ; in 
tal caso la traccia stessa viene mostrata 
nella finestra Trace. 



1.5 Architettura 
dell’ambiente 

Nella figura seguente riportiamo la strut¬ 
tura complessiva dell’ambiente TURBO- 
PROLOG. Come si vede, le tre opzioni 
principali del Menu corrispondono alle tre 
fasi principali del ciclo di vita di un pro- 


A 

Struttura del sistema TURBOPROLOG 


Si confronti questa struttura con quella di 
una normale implementazione Prolog sot¬ 
to il sistema operativo MS-DOS: la gran¬ 
de ricchezza del TURBOPROLOG appare 
evidente. In particolare, si noti la man¬ 
canza di un editor integrato. 



Struttura di un ambiente Prolog non integrato 


(3. continua) 
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GRIPHON 


Questo videogioco « spopolava » 
nei bar che lo avevano ottenuto. 
La versione su C64 è forse meno 
accattivante graficamente, ma 
non meno difficile da giocare! 



Istruzioni di gioco: 


Premere FIRE per iniziare il gioco; du¬ 
rante il gioco, in qualsiasi momento, 
premendo RUN/STOP, si incomincia 
daccapo. 

Premendo il tasto H si evidenzia la 
tabella dei punteggi massimi, mentre 
premendo il tasto F7 la si abbando¬ 
na. 

Premendo FI si ottiene una pausa di 
gioco, che viene congelato, mentre 
premendo il tasto F3 la si disinseri¬ 
sce. 


Schema di punteggio: 

— Alieni = 100 x numero della 
schermata 

— Oro depositato = 1000 x velocità 

— extra-Grifone ogni 10000 punti 

— 100 punti ogni colpo nei round- 
bonus 



Controlli del gioco tramite tastiera: 


» — uu 

I - giù 
z = sinistra 
x = destra 

SPACE o CHIFT = FIRE 
oppure JOYSTICK in porta 2 

Strategia di gioco: 

Portare i lingotti d’oro dall’estrema si¬ 
nistra dello schermo (raccogliere i lin¬ 
gotti lampeggianti partendo dal fondo 
a sinistra dello schermo) alla estrema 
destra. Qui si trova una insormontabi¬ 



le barriera con un piccolo tunnel alla 
base, il cui pavimento è ricoperto da 
mortali acque velenose. Usare i lin¬ 
gotti d’oro per formare un guado. 
Potete trasportare solo un lingotto al¬ 
la volta. Dovete inoltre distruggere i 
Mostri di Id coi fulmini di Griffin il 
Magico. 

Per spiccare il volo correre lungo il 
terreno (verso destra o sinistra) e 
quindi compiere un balzo neM'aria 
(su). Dopo le Foreste Mistiche si in¬ 
contreranno le Città Surreali, quindi 
le mortali Terre Oscure. 


IL GIOCO 
DEL BASEBALL 



Una delle più riuscite simulazioni 
sportive su home computer. La 
grafica risulta eccellente, e la 
giocabilità anche. Però ... occorre 
conoscere le regole! 

Inizio del gioco 

F3 un giocatore 
F5 due giocatori 
F7 selezione delle opzioni 
F3 colori della squadra 
F5 colori della squadra 
Tasto COMMODORE per iniziare. 
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Scopo del gioco 

Come nel baseball reale, lo scopo è 
di sconfiggere l’avversario in 9 in- 
nings. C’è un extra innings se al nono 
innings la situazione è di parità. 

Il lancio del pitcher 

Quando il pitcher appare occorre sce¬ 
gliere il tipo di palla da lanciare, posi¬ 
zionando lo stick in una delle posizio¬ 
ni sotto elencate 
Palla alta (1 ball) 

Palla alta veloce (valida) 

Palla alta lenta (1 ball) 

Palla veloce (valida) 

Palla lenta (valida) 

Palla veloce bassa (1 ball) 

Palla bassa (valida) 

Rubare una base 

Uno degli avversari del lanciatore po¬ 
trebbe tentare di rubare una base. 
Dal momento che è il pitcher che de¬ 
cide usando la propria esperienza e 
giudizio, bisogna che decida se lan¬ 
ciare la palla alla base in cui pensa 
che gli avversari possono tentare di 
effettuare un punto. Questa decisione 
può essere presa quando la scritta 
«SELECT STEAL OPTION» appare sul¬ 
lo schermo. Posizionando lo stick e 
premendo il bottone FUOCO sceglie¬ 
re in quale base si vuole lanciare per 
eliminare un avversario. Lanciare la 
palla usando la «STEAL OPTION» non 
conta come un ball. 

Battitore e corridore 

Un corridore può essere eliminato 
toccandolo, se il giocatore ha la pal¬ 
la, oppure mettendo il piede sulla ba¬ 
se verso la quale il corridore è co¬ 
stretto a correre. Un battitore può es¬ 
sere eliminato da ogni centrocampi¬ 
sta che prende la palla. Un corridore 
forzato è uno che deve correre verso 
la base successiva perché il giocato¬ 
re della base precedente sta correndo 
berso la base in cui questo si trova. 
Se un battitore colpisce la palla in 
modo eccellente, è costretto a corre¬ 


re. Una volta che la palla è stata col¬ 
pita a questo punto si può scegliere 
la velocità di battuta. Trattenere lo 
stick nella posizione richiesta e pre¬ 
mere il bottone FUOCO per decidere 
la velocità di battuta. 

Le basi 

I giocatori che stanno dalla parte del 
lanciatore, possono rubare una base 
correndo alla base opposta quando 
appare sullo schermo la scritta SE¬ 
LECT STEAL OPTION. Trattenere lo 
stick nella posizione richiesta, poi 
premere e rilasciare il bottone fuoco. 



QUINK 


I centrocampisti 

I centrocampisti sono controllati dal 
joystick. Si può prendere, raccogliere 
ed afferrare una palla. Questo viene 
fatto automaticamente se siamo vici¬ 
ni alla palla. Per lanciare una palla da 
un centrocampista ad un’altro, muo¬ 
vere il joystick nella posizione richie¬ 
sta, poi premere e rilasciare il botto¬ 
ne fuoco. 

Eventi speciali 

Un fuoricampo può essere scelto den¬ 
tro o fuori con lo stick, quando le 
scritte OUTFIELD OUT ed OUTFIELD 
IN appaiono sullo schermo. Conviene 
scegliere outfield out se i centrocam¬ 
pisti sono disposti per una vasta 
area, mentre si sceglierà outfield in 
se la posizione dei centrocampisti è 
ristretta. 

Vocabolario 



STRIKE — un lancio che attraversa la 
piattaforma di casa tra le spalle del 
battitore e le ginocchia. Tre strike 
portano all’esclusione del battitore. 
BALL — un lancio che è alto o bas¬ 
so, che non equivale ad uno strike. 
Quattro BALLS portano il battitore 
dalla partenza ad accedere alla base 
seguente. 

OUT — è il prendere al volo la palla, 
toccare i corridori con un centrocam¬ 
pista che trattiene la palla o accumu¬ 
lare tre stike. Ci sono tre OUT per 
ogni mezzo INNING. 


Quante volte vi sarà capitato, leggen¬ 
do una rivista di enigmistica, di im¬ 
battervi nel gioco dello scarto. Que¬ 
sto consiste nello scoprire, tra un 
certo numero di oggetti, quello o 
quelli che non hanno nulla a vedere 
con l’insieme degli altri lo spirito di 
questo videogioco è lo stesso: il com¬ 
puter proporrà su di una griglia alcuni 
oggetti, e bisognerà indicare quelli 
estranei a II'insieme. 

Per poter giocare a questo gioco bi¬ 
sogna usare la tastiera, e precisa- 
mente i seguenti tasti; 

<T> per eliminare in alto a sinistra 
<Y> per eliminare in alto al centro 
<U> per eliminare in alto a destra 
<G> per eliminare al centro a sinistra 
<J> per eliminare al centro a destra 
<B> per eliminare in basso a sinistra 
<N> per eliminare in basso al centro 
<M> per eliminare in basso a destra 

Nel caso vogliate ricominciare il gio¬ 
co premere «SPACE». Da notare che 
gli oggetti da escludere possono es¬ 
sere anche più di due. 

L'argomento del gioco si può sceglie¬ 
re tra le seguenti opzioni: 

Categorie di oggetti 

FAME celebrità POP CULTURE cultura 
pop IMMAGINATIO immaginazione SCIEN¬ 
CE E NATURE scienze e natura GENERAL 
KNOWLEDGE cultura generale 
MIXED BAG un po' di tutto 
Queste altre opzioni determinano invece 
la difficoltà di gioco. 

Livello di difficoltà 

1 ONE poco esperto 

2 TWO esperto 

3 TREE oracolo 

4 FOUR genio 

5 FIVE essere superiore 


Tipi di gioco 

Normale: anche se sbagli puoi prose¬ 
guire. 

Difficile: ad ogni errore devi ripartire 
dall'Inizio. 
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ome accennavo nella puntata precedente, i mo- 
dems che supportano il set di comandi Hayes so¬ 
no molto flessibili, al punto che permettono dei 
«giochetti» molto, molto comodi. Ad esempio possono ri¬ 
chiamare un numero telefonico fino a quando non lo tro¬ 
vano libero, agganciare la portante del modem ricevente, 
trasmettere la password d’accesso, caricarsi qualche file 
o la posta elettronica (se c’è), uscire dalla banca dati e 
sganciare la linea. Carino no? Tutto automaticamente, 
grazie alla programmabilità deM’hardware e, soprattutto, 
al software di gestione della trasmissione, generalmente 
molto sofisticato e di cui parleremo più avanti. 

Altra dolente nota è la velocità di un modem. Dolente per¬ 
ché subordinata alla qualità della linea telefonica, e quin¬ 
di necessariamente bassa: 300 baud è il massimo utilizza¬ 
bile in Italia. I più scettici di Voi che si vorranno cimenta¬ 
re con un collegamento a 1200 baud, si renderanno conto 
di ricevere fischi per fiaschi, e di trasmettere anche peg¬ 
gio. Il sottoscritto, più di una volta ha dovuto abbandona¬ 
re e tornare ai canonici 300 baud (sic!). Per non parlare di 
velocità anche superiori: pura fantascienza!!! Tutto ciò è 
spiegabile con una elementare osservazione: 1200 baud è 
una velocità che ci permette di trasferire dati in quantità 
quadrupla rispetto a 300 baud; però sono quadrupli anche 
gli errori di trasmissione!!! 

Come avete capito, il Baud è l’unità di misura della veloci¬ 
tà di trasmissione su una linea dati. In breve, la velocità 
di trasmissione è legata alla velocità di modulazione, cioè 
al numero di intervalli al secondo in cui un segnale assu¬ 
me uno dei possibili stati elettrici. Quindi, se il segnale 
varia, ad esempio, 50 volte al secondo, la velocità di tra¬ 
smissione è di 50 baud. Assegnando a ciascuno di questi 
stati un significato in termini di codice binario (0 oppure 
1), il segnale può trasportare un flusso di informazioni pa¬ 
ri a 50 bit/sec. Se gli stati elettrici che la linea può assu¬ 
mere sono solo due (es. +5, —5 volt), allora baud e 
bit/sec. coincidono. Nel caso in cui, ad esempio, gli stati 
della linea possibili siano quattro, i bit trasmessi sono il 
doppio. Quindi non sempre bit/sec. e baud coincidono. I 


I PARAMETRI di 


ragionamenti ora fatti per segnali digitali, sono validi an¬ 
che per segnali analogici, quali quelli generati da un mo¬ 
dem. 

Accennavo prima al software di gestione della comunica¬ 
zione. Una buona analogia è quella di due persone che 
perlano al telefono. Una delle due deve chiamare l’altra e 
stabilire il collegamento telefonico. Quando cominciano a 
dialogare, esse devono parlare la stessa lingua ed una al¬ 
la volta, cosicché l’una possa udire correttamente ciò che 
ha pronunciato l’altra. 

La comunicazione tra computers è un poco più complica¬ 
ta di quella che si svolge tra due persone al telefono. Allo 
stesso modo, ci deve essere un computer chiamante (mo¬ 
do ORIGINATE) e uno ricevente (modo ANSWER). Come 
nella precedente analogia, i computer devono essere in 
grado di dialogare nello stesso linguaggio, utilizzando i 
medesimi parametri di trasmissione. 

Senza un software dedicato, il computer non è in grado di 
svolgere nemmeno la funzione più banale!!! Esistono 
quindi in commercio dei programmi molto sofisticati che 
si incaricano di stabilire la connessione logica tra due 
calcolatori e di effettuare una gestione a basso e alto li¬ 
vello della trasmissione in corso. 

Per gestire a basso livello si intende l’insieme di funzioni 
di controllo del modem via RS/232, di accettazione e rico¬ 
noscimento dei caratteri in arrivo; insomma tutte quelle 
azioni atte ad assicurare un efficiente monitor della tra¬ 
smissione. 

La gestione ad alto livello è costituita dai vari menu di 
scelta, tramite i quali si stabiliscono i parametri e il proto¬ 
collo di trasmissione, il ricevimento e l’invio di files, la re¬ 
gistrazione su disco dei dati in arrivo, la chiamata auto¬ 
matica, ecc. Ovviamente non tutti i programmi permettono 
queste «meraviglie», tuttavia sono recentemente apparsi 
sul mercato programmi veramente sofisticati. Ad esem¬ 
pio, l’ultima versione del Crosstalk (che gira su IBM PC e 
compatibili), la MK4, purtroppo non importata in Italia (co¬ 
me del resto anche le precedenti!), supporta anche i Ker- 
mit, ultimo ritrovato in fatto di protocolli, e, udite, udite, la 
possibilità di effettuare fino a quindici collegamenti con¬ 
temporanei, visualizzati su quindici finestre differenti!!! 
Questi americani! La scelta dei parametri di trasmissione, 
inutile dirlo, è molto importante. Principalmente da essi 
dipende il corretto funzionamento di tutto il marchinge¬ 
gno, ed è ovvio che debbano essere gli stessi per entram¬ 
bi gli utenti. Vediamo quali sono. 
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4E DATI 


di Fabio Scafati 


TRASMISSIONE 


Velocità di trasmissione. Ne abbiamo già parlato, ed io 
consiglio sempre quella a 300 baud: chi va piano, va sano 
e va lontano! Bit di dati. È il numero che indica quanti bit 
costituiscono dati utili per ogni byte trasmesso (sequen¬ 
zialmente). Generalmente il valore è sette od otto. Nel ca¬ 
so di caratteri ASCII si utilizza il valore sette, mentre nei 
trasferimenti di files binari, in cui tutti i bit sono significa¬ 
tivi, il valore è otto. 

Bit di stop. Con questo bit, necessario per questioni di 
sincronismo (i lettori più attenti ricorderanno che tale bit 
non è necessario nelle trasmissioni sincrone), si comuni¬ 
ca che è stata completata la trasmissione del byte, e che 
i successivi bit appartengono ad un altro byte. Questo pa¬ 
rametro vale due oppure, quasi sempre, uno. 

Bit di parità. Con questo bit si vuole salvaguardare, in ma¬ 
niera abbastanza inefficiente ma semplice, l’integrità dei 
dati trasmessi (o ricevuti) dai «rumori» della linea. Tali ru¬ 
mori non sempre imputabili alla povera (!) Sip: un elettro¬ 
domestico che sia sulla stessa linea elettrica utilizzata 
per alimentare quella telefonica, darà luogo al più subdo¬ 
lo dei disturbi: il rumore impulsivo. Classica è l’interferen¬ 
za generata da un trapano o un frullatore sullo schermo 
della TV. A tal fine, si sono studiati particolari sistemi per 
il rilevamento di errori di trasmissione. I più sofisticati rie¬ 
scono, oltre che a rilevarli, anche a correggerli. Il control¬ 
lo a codice di parità è quello più semplice aggiunto nei 
bytes costituiti da sette bit di dati, quindi solo i caratteri 
ASCII, in modo tale che il numero complessivo di uni sia 
sempre pari (parità pari, ODD) o dispari (parità dispari, 
EVEN). 

Ad esempio, nel caso della parità pari, al carattere ASCII 
«G» rappresentato dal codice binario 1000111, verrà ag¬ 
giunto alla fine uno zero, ottenendo 10001110. Il ricevente, 
informato del tipo di parità adottato (pari), potrà verificare 
se il numero di uni e pari, e quindi se il carattere trasmes¬ 
so è giusto. 

Quando si lavora su files binari, non c’è nessuna parità 
(NONE) in quanto i bytes sono di otto bit, e non c’è spazio 
per il bit di parità. In questo caso, l’integrità dei dati è più 
importante che mai. Infatti è sufficiente un bit errato in 
un file binario (ad esempio un programma già compilato), 
per rendere inutilizzabile tutto il file. Questo incoveniente 
viene risolto utilizzando codici più sofisticati come il CRC 
o i codici di Hamming, che permettono anche la correzio¬ 
ne automatica dell’errore. Il problema non è così grave nel 
caso di un file ASCII (cioè un file di caratteri), in quanto il 


significato di una parola, pur con un carattere o due erra¬ 
ti, è facilmente deducibile dal contesto in cui essa è inse¬ 
rita. 

Tuttavia, il controllo di parità non ci protegge da errori 
doppi, cioè da errori che riguardano un numero pari di bit 
che vengono complementati contemporaneamente. Ad 
esempio, si consideri il byte già visto, corrispondente al 
carattere «G», e completo di bit di parità pari 10001110. 
Se, a causa di un disturbo nella linea, il terzo e il quinto 
bit (a partire da sinistra) vengono complementati, il carat¬ 
tere «G» viene ricevuto come 10100110, corrispondente al 
carattere «S», e considerato corretto dal ricevente. 

Osservate che non si può escludere a priori che anche il 
bit di parità possa venire alterato; nel qual caso, pur es¬ 
sendo il byte ricevuto corretto, si avrà una segnalazione 
di errore. Già, perché non esiste un controllo sul control¬ 
lo!!! 

Altro parametro utile nel corso della trasmissione, in par¬ 
ticolare quando si ha a che fare con grandi calcolatori, è 
il filtro. 

Alcuni sistemi trasmettono caratteri speciali, chiamati ca¬ 
ratteri di controllo. Questi caratteri, utilizzati dagli host 
per varie funzioni, non sono interpretabili correttamente 
dal nostro software, causando alcuni fastidiosi problemi. 
Il comando di filtro permette di scegliere quali caratteri 
scartare appena arrivano al terminale. 

Altro parametro fondamentale per... vedere qualcosa sullo 
schermo, e la modalità di trasmissione in half o full du¬ 
plex. Ne parleremo nella prossima puntata. 



Bibliografia: 

M. Malcagi «// modem » Ed. Jackson 

Lenzini — Boreggi «Reti per dati» Ed. Sarin-Marsilio 
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Notizie 

TELE WARE 






Per un accesso semplice ed economico ai nuovi servizi telematici: 
PGE VIDEOTEL - HOME BANKING BANCHE DATI 



(Europee ed Americane) 



Trasparenza — La scheda Modem PC-13 DH. viene vista dal PC come un 
normale adattatore asincrono e consente quindi l'utilizzo di tutto il softwa¬ 
re di comunicazione presente sul mercato. 

Chiamata e risposta automatica — È possibile effettuare la selezione au¬ 
tomatica del numero desiderato (con accesso anche attraverso centralino) 
e ricevere sul video tutte le indicazioni sull’andamento e l’esito della chia¬ 
mata. 

Il Modem PC-13 DH infatti prima di acquisire la linea è in grado di ricono¬ 
scere se la stessa è impegnata dal telefono di servizio e di riconoscere 
tutti i toni di linea. Per tutte le applicazioni che non prevedono la presenza 
di un operatore (ricezione notturna), il modem offre la prestazione di rispo¬ 
sta automatica. 

Semplicità d’uso e di installazione — E inseribile in uno qualsiasi degli 
slots disponibili sul PC ed è dotato di cavo con spina-presa telefonica. 
Prestazioni diagnostiche — La corretta installazione può essere verificata 
mediante un test diagnostico disponibile su floppy disk fornito in dotazio¬ 
ne alla scheda. Prezzo L. 540.000 + IVA 
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Carattteristicho tecniche 


Modo di funzionamento 

Punto-Punto su linea telefonica commutata 
Tipo di esercizio 
Duplice/Semiduplice su due fili 

Opzioni 

Canale supervisore. Risposta automatica. 
Chiamata automatica 

Dispositivo di commutazione 

Interno 

Velocità di cifra canale dati 


300 (V21) • 1200 (V23) - Bit/s 

Velocita di cifra canale supervisore 

75 Bit/s 

Interfaccia dati 

Parallela bus PC IBM • 

Livello trasmissione canale dati 
Regolabile a slep di 2 dB 
da —1 a —15 dBm ( + /— 0 2) 

Livello trasmissione canale supervisore 
Uguale a quello del canale dati 
Tipo di modulazione 
FSK (V21 e V23) 

Frequenze portanti 
Modo : MARK - SPACE 

300 chiamante 980-1180 Hz 

300 chiamato : 1650-1850 Hz 

1200 1300-2100 Hz 

75 . 390- 450 Hz 


Banda 

300 - 3400 Hz 

Impedenza di uscita 

600 Ohm 

Impedenza di ingresso 

600 Ohm 

Livello minimo in ricezione 

—40 dBm 

Livello massimo in ricezione 

— 1 dBm 

Equalizzazione 

Fissa in ampiezza 

Tasso di errore a 300 Baud 

10E-5 con S/N = 7,5 dBm 

Tasso di errore a 1200 Baud 

10E-5 con S/N = 11 dBm 

Tipi di Loop 

Loop 3 

Peso 

0 2 kg 

Dimensioni 

99 (L). 131 (P). 15 (H) mm 

Potenza assorbita 

2 Watt 



I 


L’intelligenza applicata alla trasmissione dati: 

CHIAMATA AUTOMATICA STANDARD HAYES - ADATTAMENTO AUTO¬ 
MATICO DI STANDARD - ADATTAMENTO DI VELOCITÀ LATO P.C. 


MODEM PC-13 


Trasparenza — Il Modem PC-13 I è visto dal personal computer come un 
normale adattatore asincrono e quindi è compatibile con tutto il software 
di comunicazione esistente sul mercato, in particolare viene reso disponi¬ 
bile sul pannello posteriore del PC un commutatore FONIA/DATI che con¬ 
sente di utilizzare il Modem PC-13 I anche in modo manuale. 

Chiamata automatica e standard Hayes — Il modem è in grado di ricono¬ 
scere i toni di linea ed essendo multistandard seleziona automaticamente 
la velocità di linea in base alla velocità del personal computer. 

Risposta automatica — E dotato di risposta automatica che può essere 
abilitata sia via software sia mediante un deviatore posto sul pannello po¬ 
steriore del PC. Il Modem PC-13 I sia in funzionamento manuale che auto¬ 
matico è sempre in grado di riconoscere se è chiamante o chiamato: se 
viene selezionata la prestazione di adattamento di standard, quando il mo¬ 
dem viene chiamato, esso è in grado di riconoscere lo standard del chia¬ 
mante e di adattarvisi. 

Adattamento di velocità lato PC (75/1200 - 1200/75) — Poiché il PC non ge¬ 
stisce flussi di trasmissione e ricezione a velocità diverse (ad es. VIDEO¬ 
TEL), il Modem PC-13 I è in grado di sopperire a tale carenza eseguendo 
l'adattamento di velocità da 75 a 1200 bits/sec. e viceversa consentendo al 
PC di lavorare a 1200 full-duplex. 

Completa configurabilità da software — Assieme alla scheda viene fornito 
un floppy disk con il software di installazione della stessa. 

Prezzo L. 720.000 + IVA 

TELEWARE S.R.L. 

P.zza Trento, 6 - 20135 Milano. Tel. 02/656919 


Modo di funzionamento 

Punto-Punlo su linea telefonica commutala 
o dedicata 
Tipo di esercizio 
Dupiice/Semiduplice su due lili 

Opzioni 

Canale supervisore Risposta automatica 
Chiamata automatica i Hayes) 

Disco.messione automatica 

Dispositivo di commutazione 

Interno 

Velocita di cifra canale dati 

300 iV21) - 600/1200 (V23) - Bit/s 

Velocita di cifra canale supervisore 

75 Bil/s 

Interfaccia dati 

Parallela bus PC IBM • 

Livello trasmissione canale dati 
Regolabile a step di 2 dB 
da —1 a —15 dBm ( + /— 0 2) 

Livello trasmissione canale supervisore 
Uguale a quello del canale dati 
Tipo di modulazione 
FSK (V21 e V23) 

Frequenze portanti 
Modo MARK - SPACE 

300 chiamante 980-1180 Hz 

300 chiamato 1650-1850 Hz 

1200 1300-2100 Hz 

75 390- 450 Hz 


Banda 

300 - 3400 Hz 

Impedenza di uscita 

600 Ohm 

Impedenza di ingresso 

600 Ohm 

Livello minimo in ricezione 

-40 dBm 

Livello massimo in ricezione 

— 1 dBm 

Equalizzazione 

Fissa in ampiezza 

Tasso di errore a 300 Baud 

10E-5 con S/N = 7 5 dBm 

Tasso di errore a 1200 Baud 

10E-5 con S/N= li dBm 

Tipi di Loop 

Loop 3 e Loop 2 

Peso 

0.3 kg 

Dimensioni 

106 |L). 336 (P). 15 (H) mm 

Potenza assorbita 

5 Watt 




























Quello che non dicono i manuali 


Rubrica aperta anche alla collaborazione dei lettori 


L'ASSEMBLER DELL'OLIVETTI PRODEST PC128S 


L’olivetti PC128S permette l’utilizzo di un Assembler per 
la creazione di routines in linguaggio macchina da inglo¬ 
bare in programmi in Basic. Coloro che sono andati a cu¬ 
riosare in quella miniera di informazioni che è il dischetto 
Welcome si saranno accorti della presenza, in alcuni pro¬ 
grammi, di blocchi di istruzioni che con il Basic hanno po¬ 
co da spartire. Chi conosce il linguaggio macchina del 
6502 avrà riconosciuto quasi immediatamente alcune 
istruzioni in Assembly di questo processore: gli altri, inve¬ 
ce, avranno sicuramente intuito che si trovavano di fronte 
a righe di Assembly. In questo articolo spiegheremo le 
modalità per l’utilizzo di questa caratteristica del Basic 
BBC, allo scopo di migliorare l’efficienza dei programmi 
attraverso l’utilizzo di routines in linguaggio macchina. 
Non ci è purtroppo possibile approfondire in maniera ade¬ 
guata gli aspetti sulla programmazione in linguaggio As¬ 
sembly, essendo questo un argomento troppo vasto per 
essere esaurito in queste pagine. Rimandiamo quindi alla 
lettura di validi testi divulgativi per l’apprendimento o il 
miglioramento delle tecniche di questo tipo di program¬ 
mazione. Come accennato sopra, il set di istruzioni del 
processore 65C12 sul PC128S è molto simile a quello del 
6502. Infatti il 65C12 risulta essere una versione migliora¬ 
ta di quest'ultimo, sia per quanto riguarda la quantità che 
la qualità delle istruzioni implementate. Basterà quindi fa¬ 
re riferimento ad uno dei tanti testi dedicati al 6502. 


COME VA USATO L’ASSEMBLER 

Innanzitutto, prima di allocare una routine in L.M., biso¬ 
gna decidere DOVE memorizzarla. In altre parole, bisogna 
definire lo spazio nel quale verrà assemblata la routine. 
Questa operazione viene effettuata tramite il comando 
DIM usato in modo leggermente diverso dal solito. La sin¬ 
tassi è: 

DIM Variabile Numero 

L’effetto di tale comando è quello di preservare una zona 
di memoria lunga. Numero di bytes a partire dalla locazio¬ 
ne di memoria il cui indirizzo viene automaticamente con¬ 
servato in Variabile. Cosi 


di G. Vannini e A. Coccettini 

DIM SPACE% 4000 

ha come risultato quello di riservare una zona di memoria 
lunga 4000 bytes. Se poi si vuole sapere l’indirizzo di par¬ 
tenza di tale zona, si deve dare: 

PRINT SPACE% 

Se ad esempio si ottenesse il numero 3234, significhereb¬ 
be che il sistema riserva una zona di memoria lunga 4000 
bytes a partire dall’indirizzo 3234. Una volta definito lo 
spazio di lavoro, bisogna inizializzare una particolare va¬ 
riabile residente, precisamente P%. Come riportato sul 
manuale, il Basic del Super possiede alcune variabili co¬ 
siddette residenti, trasparenti al NEW e alle modifiche di 
programma. Alcune di queste variabili hanno un significa¬ 
to molto particolare. Quella di nome P% ha il compito di 
specificare, durante la compilazione, l’indirizzo della loca¬ 
zione corrente nella quale memorizzare i vari codici che si 
generano. In genere il valore di P% viene posto pari a 
quello di Variabile. Nel nostro caso di avrebbe: 

10 DIM SPACE% 4000 
20 P% = SPACE% 

Il successivo passo consiste nell'aprire l’Assembly Mode, 
operazione che si esaurisce nel digitare la parentesi qua¬ 
dra aperta. Ciò indica al Basic che tutto ciò che seguirà 
dovrà essere interpretato come un programma Assembly. 
Riassumendo: 

10 DIM SPACE% 4000 
20 P% = SPACE% 

30 [ 

A questo punto possiamo cominciare a scrivere il nostro 
programma in Assembly, ricordando di chiudere le paren¬ 
tesi quadre alla fine del programma stesso. Una routine 
potrebbe essere, ad esempio: 


# 10 DIM SPACE% 4000 

20 P% = SPACE% 

30 [ 

• 40 LDA 112 

50 ADC 113 
60 STA 114 

^ 80 RST 

90 ] 


► ►► 
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Nella linea 40 l’accumulatore viene caricato con il conte¬ 
nuto della locazione di memoria 112, gli viene sommato il 
numero memorizzato in 113 e il risultato viene memorizza¬ 
to in 114. Notate che gli indirizzi della Pagina 0, cioè dei 
primi 255 bytes, sono riservati al Sistema ed è in genere 
poco consigliabile andarli a stuzzicare. Poiché però molte 
operazioni del 65C12 vengono effettuate in tale Pagina o 
comunque attraverso di essa (modi di indirizzamento, 
scambio dati, ecc), si è preferito riservare all’utente un 
certo numero di locazioni, che si estendono dalla 112 (&70 
in esadecimale) fino alla 143 (&8F). 


IL TWO PASS ASSEMBLY 


Provate a far girare il seguente programma: 


10 DIM CODE% 10 
20 P% = CODE% 

30 [ 

40 LDA #0 
50 BEQ EXIT 
60 LDA #100 


70 .EXIT 
80 LDA #50 
90 RST 
100 ] 

RUN 


Notate alla linea 50 un'istruzione di salto condizionato. 
Esso utilizza il metodo delle LABELS, contrassegnate da 
un punto mziale a cui segue il nome. Tale metodo risulta 
molto efficiente perché permette all’operatore di ignorare 
ogni riferimento assoluto alla memoria. Ebbene, il pro¬ 
grammino riportato, pur essendo alquanto imbecille, non 
deve generare alcun messaggio d’errore. Invece il Sistema 
si ostina ad avvisarci che c’è qualcosa che non va! L’erro¬ 
re consiste nell’aver chiamato alla linea 50 una Label non 
ancora definita, trovandosi questa più in basso rispetto 
alla direzione di compilazione. Il problema viene risolto in 
questo modo: attraverso l'uso appropriato di alcuni Flag 
si forza una compilazione durante la quale viene soppres¬ 
so ogni messaggio d’errore. Alla fine di questa operazione 
si rieffettua l’intera compilazione; questa volta, però, ogni 
Label possiederà un certo valore, evitando cosi situazioni 
poco corrette come quella di sopra. In termini operativi 
ciò viene raggiunto attraverso la direttiva OPT, parametra- 
ta in questo modo: 

OPT 0 ignora gli errori e non produce listing 
OPT 1 ignora gli errori ma visualizza il programma du¬ 
rante la compilazione 
OPT 2 riporta gli errori ma niente listing 
OPT 3 riporta gli errori con il listing 

Provate ad aggiungere al programma di sopra, quindi, le 
seguenti linee: 

15 FOR X% = 0 TO 3 STEP 3 
• 30 COPT X% • 

110 NEXT 

L’effetto dell’intero programma sarà quello di Assemblare 
la routine due volte (Two-Pass Assembly). Una volta con 
la OPT 0, che forzerà, l'Assembler ad ignorare gli errori, 
una volta con OPT 3, che visualizzerà il programma in fa¬ 
se di compilazione riportando eventuali errori. Notate la 
posizione della OPT: essa DEVE trovarsi subito dopo la 
parentesi quadra; il ciclo di FOR deve inoltre racchiudere 
la linea che definisce P%. Per richiamare la routine in 
L.M. si usano in genere l’istruzione CALL o la funzione 
USR. Nel caso specifico, si possono usare equivalente- 
mente le espressioni: 

CAL CODE % oppure ANS = USR(CODE%) 

La seconda espressione restituisce un intero a quattro by¬ 


tes del tipo PXYA, dove P è il registro di stato del proces¬ 
sore, X e Y sono i registri X e Y del 65C12 e A l’accumula¬ 
tore. SI noti che è possibile passare valori a questi regi¬ 
stri attraverso le variabili residenti A% (all'accumulatore), 
X%, Y% (ad Xe Y) e C% (per P). 

USO DEL BASIC NELL’ASSEMBLY 

L’Assembler permette l’uso di alcune parole Basic per la 
facilitazione della programmazione in Assembly. Sono 
permesse quasi tutte le funzioni basic, gli operatori arit¬ 
metici, ecc. Si possono cosi usare espressioni del tipo: 

LDA # ASC(“A”) A = codice ASCII di ’A’ 

STA (DATA + 2 (DATA + 2) = A 

LDX # (DATA% MOD 256) carica X con LSB 

LDY # (DATA% DIV 256) carica Y con MSB 

È inoltre possibile definire fuori dall'Assembly Mode mol¬ 
te variabili da usare all’interno delle parentesi quadre. Si 
possono incontrare allora linee del tipo: 

100 OSBYTE% = &FFF4 

• 110 OSASCI% = &FFE3 • 

• 300 [ • 

• 400 JSR OSBYTE% • 

• 440 JSR OSASCI% • 


Sono parimenti permesse applicazioni mischiate di Basic 
ed Assembly, come la seguente: 


20 FOR 1 = 1 
30 [ ROR A 
40 ] 

50 NEXT 


TO 4 


Che ha l’effetto di includere quattro istruzioni ROR A nel 
programma id cui fanno parte. 

Estremamente potente è l’uso di PROCEDURE in Assem¬ 
bly. Infatti sono accettate strutture del tipo: 

100 DEFPROCADD(N1,N2,ANS) 

• 110 [CLC • 

120 LDA NI 

• 130 ADC N2 • 

140 STA ANS 

• 150 ] • 

160 ENDPROC 


Questa procedura serve per sommare al contenuto della 
locazione NI quello della N2 e di memorizzare il risultato 
in ANS. Cosi la chiamata: 

400 PROCADD (100,300,400) 

funzionerà egregiamente, mostrando così la potenza e 
l’efficienza deH'Assembler. 

È possibile anche condizionare l'Assembly. Facciamo al 
solito un esempio chiarificatore: 

300 IF FAST = 1 THEN [ LDA #100:] ELSE [ LDX #120:] 

questa linea permette la scelta delle due diverse possibili¬ 
tà attraverso la varibile Basic FAST. 

Si potrebbe andare avanti ancora per molto, ma ciò non 
porterebbe a nulla di veramente fruttifero, essendo queste 
ultime righe un semplice accenno alle possibilità offerte 
dall’Assembler implementato. Più dettagliate spiegazioni 
verranno date all’interno dei singoli programmi che use¬ 
ranno queste avanzate tecniche di programmazione e che 
pubblicheremo nei prossimi numeri. 
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ISTRUZIONI... 

AL MICROSCOPIO ? 

a> 

Gli operatori logici § 

ò 

A cosa servono ^ 



li operatori logici AND, OR, XOR e NOT non fan¬ 
no parte della corte delle istruzioni Basic, ma con 
queste convivono in stretta relazione e possono 
diminuire grandemente i passaggi elaborativi espressi sia 
matematicamente che neH’utilizzo di stringhe, compattan¬ 
do e strutturando al minimo le righe di programma che in 
questo modo acquisteranno una maggiore rapidità di let¬ 
tura dall’interprete Basic. 


L’operatore: 

AND — (prodotto logico) Risulta VERO se le due relazioni 
risultatono VERE 

OR — (somma logica) Risulta VERO se le due relazioni, o 
anche una sola delle due, risultano VERE 
XOR — (OR esclusivo) Risulta VERO se una sola delle re¬ 
lazioni è VERA 

NOT — (negazione) Risulta VERA se la relazione è FALSA 
e FALSA se la relazione risulta VERA 
Ai normali operatori l’MSX aggiunge: 

IMP — (implicazione logica) Risulta VERO se le due rela¬ 
zioni sono VERE o tutte e due FALSE o ancora se solo la 
seconda relazione risulta VERA 

EQV — Risulta VERO se le due relazioni sono VERE o en¬ 
trambe FALSE 


Esempi pratici 

Gli operatori logici vengono usualmente sfruttati nelle 
istruzioni IF...THEN.ELSE, ma come vedremo nei casi spe¬ 
ciali, possono consentire notevoli vantaggi anche nell’am¬ 
bito di altre istruzioni. 

A = 20 B = 35 

IF A> 9 XOR B< 20 THEN GOTO 100 ELSE 200 

Il programma si sposterà alla riga 100 perché una sola 
delle relazioni è vera (A>9). 

Il rimando della IF THEN ELSE può essere omologato da 
una ON GOTO o una ON GOSUB, sapendo che il risultato 
XOR di vero è —1 e quello falso è 0 (zero). 

Quindi mantenendo A e B ai medesimi valori scriveremo: 

ON (A >9 XOR B < 20) + 20 GOTO 100,200 

oppure: 

ON (A> 9 XOR B< 20) + 2 GOTOSUB 100,200 

In entrambe le scritture le istruzioni rimanderanno alla ri¬ 
ga 100. 

Da notare che sia per la ON GOTO che per la ON GOSUB 
si è dovuto aggiungere al risultato VERO o FALSO dello 
XOR un più 2 per ricondizionarne i valori: 

—1+2 = 1 cioè VERO (o riga 100) 

0 + 2 = 2 cioè FALSO (o riga 200) 

Provate a mutare i valori iniziali di A e B per verificare i 
salti alle linee corrispondenti. 

Detti valori, del —1 per relazione VERA e 0 (zero) per rela¬ 
zione FALSA, sono riscontrabili per tutti gli altri operatori 
logici, con medesimi risultati per le istruzioni di controllo. 



Vediamo adesso un esempio utilizzando delle stringhe e 
l’operatore AND. 

A$ =“ANNA” B$ = “BIMBO” 

IF A$ =“ANNA” AND B$ = “CUORE” THEN GOTO 100 EL¬ 
SE 200 

L’istruzione salterà alla riga 200 perché le relazioni non 
sono entrambe VERE. 

Nella ON GOTO (o nella ON GOSUB) dovrete digitare nel 
seguente modo: 

ON (A$ = “ANNA” AND B$ = “CUORE”) + 2 GOTO 100,200 

VI consiglio di esercitarvi lungamente nell’uso di tutti gli 
altri operatori nell'ambito delle IF THEN e nelle ON 
GOTO/GOSUB, poiché questo lavoro diverrà fruttifero in 
sede di programmazione. 


Novità inedite sugli operatori 

Devo subito precisare che queste novità riguardanti gli 
operatori sono ancora in embrione, poiché lo studio e la 
scoperta di inedite utilizzazioni dei vari AND, OR, XOR e 
NOT è iniziato pochi giorni prima della stesura di questo 
articolo, tuttavia, poiché siamo in tema, ho inteso favorire 
l’interesse dei programmatori più attenti che certo faran¬ 
no tesoro di queste prime, allettanti curiosità, proponen¬ 
domi fin d’ora di pubblicare un resoconto più completo 
delle scoperte ad indagine esaurita. 

Per ora provate a digitare: 

10 SCREEN 2:CLS:A = 1 40 NEXT C 

20 FOR C = 30 TO 150 50 GOTO 50 

30 CIRCLE (C OR A,60),10 

Che diavolo ci fa, penserete, un operato OR in un istruzio¬ 
ne CIRCLE?! 

L’idea è proprio questa: poiché se è vero che l’OR è un 
operatore matematico perché non provare ad inserirlo in 
istruzioni che si avvalgono di calcoli? 

Nella fattispecie il mini-list senza OR effettuerebbe la 
stampa grafica di alcune circonferenze l’una attaccata 
all'altra, con l’OR, invece (ed A posto a uno), i cerchi ver¬ 
ranno distanziati di un pixel ciascuno. 

Con A = 2 vedrete invece una fila continua di due cerchi 
appaiati con uno scarto di due pixel dalla prossima cop¬ 
pia. 

Con A = 3 tutte le singole circonferenze distanziate di tre 
pixel. 

Con A = 4 quattro cerchi e quattro spazi. 

Con A = 5 le cose cominciano ad ingarbugliarsi, ma dato 
l'esiguo spazio disponibile lascio a voi la scoperta della 
altre possibilità, segnalandovi che la CIRCLE può essere 
cambiata da una PSET con esiti interessanti e la OR da 
uno XOR o un AND. 

Ora ho proprio finito lo spazio, ma intanto divertitevi pure 
con gli operatori logici, visto che... si può fare. 
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C64/128 

+ Disk Drive 1571 


COME FORMATTARE ENTRAMBI 
I LATI DEL FLOPPY 

Sapevate che il vostro drive 1571 può formattare e 
accedere ad entrambi i lati di un disco con un C64 o 
con un C128 utilizzato nel modo 64? 

Eccovi il comando che vi farà compiere tale 
«magia»: 

OPEN15,8,15:PRINT # 15,“U0> M1”:CLOSE 15 

Se formatterete un disco dopo aver dato questo co¬ 
mando, il drive 1571 formatterà entrambi i lati del 
floppy e vi metterà a disposizione per la memorizza¬ 
zione dei vostri files ben 1328 blocchi di memoria. 
Per ritornare al modo di formattazione di un singolo 
lato basterà impartire il comando: 

OPEN15,8,15:PRINT# 15,“U0> MO”:CLOSE 15 


C-128 


COMANDO UNNEW 

Capita, fortunatamente non spesso, di cancellare 
accidentalmente un programma con il comando 
NEW. 

Bene ora è possibile recuperarlo grazie al program¬ 
ma sotto riportato che crea un file sul disco chia¬ 
mato UNNEW. 

Inserire il disco contenente il programma UNNEW 
nel drive e digitare il comando: 

BOOT "9 UNNEW" 
e digitare return. 

Se avete attivato lo schermo grafico digitate in mo¬ 
do diretto 

GRAPHIC1:GRAPHIC0 

prima di caricare il programma UNNEW. 

Una volta eseguito il programma UNNEW il vostro 
programma precedentemente cancellato sarà «mira¬ 
colosamente» recuperato 

IO REM * 0128 COMANDO DI UNNEW * 
20 BANK 15s PORI=281 61 02833sREADA 
: PGKEI , A: IMEXT 

30 BSAvE " "/«UNNEW " , BO , P28 :l 6T0P2834 
s END 

40 DATA 165,45,133,251,165,46, 

50 DATA 160,0,169,1,145,251„32, 
229,94,96 


C-64 

- Disk Drive 1571 


PROTEGGERE LE INFORMAZIONI 
DEL VOSTRO FLOPPY 

Questa routine vi permette di proteggere le informa¬ 
zioni contenute sul vostro floppy disk. 

Una volta che l’avrete utilizzato per proteggere i vo¬ 
stri dati, nessuna di queste informazioni potrà esse¬ 
re letta o scritta sul disco. 

L’operazione di «sprotezione» del floppy permette 
all’utente di accedere nuovamente, in lettura e in 
scrittura alle informazioni contenute sul floppy. 

□ R t M *■»*■»**»**«■*•»*#■»*•»■» fi****** 

1 REM - PROTETTORE DISCO C-64 * 

2 REM a* a a a**-»*aaa 

5 : 

10 PRINT " [L] ... PROTEGGE IL DIGCO":PRINT 
15 PRINT '• t U] . . . SPRO TEGGE IL. DISC0":PR1NT 
20 INPUT "COSA DEVI f-ARE " ; A$ : A$-LEFT$l A$ , 1 ) 
25 OPEN 15,6, 15, " IZ": 0PFN2,0,2, 

30 PRINT015, "U1 : "2 ; ET; 18;l?r.-PRINT#l5,"R-P: ,, 2;2 
40 LK-66:IF A$«"U" THEN LK-65 
50 PRINT#2,CHR$lLK ) ; : P RI N T # 1 5 ,"U2:"2;0 ; 18 ; 0 
60 PRINT# 15,"10":CLOSE2:CLOSE15 


C-64 

+ Stampante 


SPARTITI MUSICALI 

Ecco qui una applicazione interessante per tutti 
quei lettori di LIST che oltre ad essere appassionati 
di computers amano anche la musica. 

Infatti la routine sotto riportata permette la stampa 
su carta di uno spartito musicale. 

Ricordatevi soltanto di accendere la stampante pri¬ 
ma di dare il RUN al programma!!! 

100 REM * * '<• # * » « ■> a a a a a a a a a a a a a a a a a a a 

101 REM » STAMPA SPARTITI MUSICALI C-64 a 

102 REM a a a * - - « * a * - ■ < a * a a a a a a a aaa a a a a a 
1 10 0PEN4 , <1 : PRIN1 #4 : PRINT #4 ; P R 1 N T # 4 

120 FORJ- 1 TQ79 : A$-A$ + CHR$( 164.) : NEXT 

130 FOR k-1 TO 6 

140 FORL- 1 T05:PRIN1#4,A$:NEXTL 

150 PP.INT#4:PRIMT#4 

160 NEXTk 

170 CLOSE 4 


La rubrica per ampliare facilmente 
le proprie cognizioni ...senza troppa 
fatica, con divertimento 
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C-64 


CALENDARIO PERPETUO 

Questa routine permette di conoscere il giorno della 
settimana per qualunque data compresa tra il 1 
Marzo 1900 e il 28 Febbraio 2000. 

Quando inserite la data usate la forma numerica, in¬ 
serendo due cifre per il mese, due cifre per il giorno 
e due cifre per l'anno ciascuno delle quali separate 
da un virgola. 

IO REM * CALENDARIO PERPETUO C=64 * 
20 DA I A ROM, t. .1JN, MAE, ME E s OIO, VEN, Sh».« 
30 PORJ =0 rOò ; READW1) t ( J ) ; NE>' I 
40 1 NF’I I ! " MESE , G ! ORNO, ANNO " ; MN, [> Y , YR 
50 CVsrYR : M=MN~2 s I FM< 1 THE NM= M+12 r 
CY-CY-1 

60 Y=LY-1N r(C Y/1OO)*100 
70 WD= /+1NT<Y, 4)+1+DY+INT 
C>, 6*M-. :l 9 Q 9) 

80 WD-WD-1NT < WD/7)*7sPR1Mi WD*(WD) 


: { 

c- 


■ AUTO LOADER 


UN «Generatore» di routine in L.M. 


Sulla scia degli altri programmi pubblicati dalla nostra ri¬ 
vista, eccovi un algoritmo in grado di sostituire se stesso 
con un nuovo programma. A cosa serve «auto loader»? 
Sarà di valido aiuto a tutti coloro che devono utilizzare 
routines in linguaggio macchina di qualunque tipo. 
Supponiamo di avere scritto un programma in assembler, 
e quindi di averlo caricato in memoria con un assemblato- 
re: otterremo un segmento di codice macchina residente 
dalla locazione x alla locazione y. A questo punto vor¬ 
remmo scrivere un programma basic che per mezzo della 
lettura di data e di relative istruzioni di poke, carichi in 
memoria la routine in qualsiasi momento si voglia. È evi¬ 
dente che ciò rappresenta una notevole perdita di tempo, 
specialmente se la routine in linguaggio macchina è mol¬ 
to lunga. Facciamo girare invece, il nostro programma: ci 
chiederà la locazione di partenza e la locazione di fine del 
codice macchina, dopodiché provvederà automaticamente 
a creare il programma basic completo in ogni sua parte, 
pronto per effettuare il suo lavoro! Se chiediamo il listato, 
non apparirà più il vecchio programma, ma solo il risulta¬ 
to finale. Passiamo subito a commentare il listato: 

0-1 viene richiesta la locazione di inizio e quella di fine. 
Viene stampata sul video una nuova linea 0 contenente 
tre data (locazione iniziale, finale, e linea basic corrente 
da stampare), e la linea 10, contenente il ciclo di lettura 
dei data deM'autoprogramma. 

2 Se il lavoro è terminato elimina le linee 0-8 e chiede il li¬ 
stato. 

3-7 Creazione vera e propria delle linee dell'auto program¬ 
ma; ogni volta viene confrontata la lunghezza della linea 
con quella massima accettabile. 

Routine di manipolazione del buffer di tastierà: vengono 
inseriti in esso 10 carriage return, che verranno lanciati 
dopo l’istruzione «END». 


C64/128 


CONTROLLO PERIFERICHE C64/128 

La seguente utility funziona su qualunque computer 
della Commodore e permette all’utente di controlla¬ 
re se la stampante e il disk driver sono pronti per 
l’uso. 

Questa routine può essere benissimo inserita nel 
contesto di un programma con lo scopo di verifica- 
re, prima di eseguire una determinata operazione su 
stampante o su driver se l'unità è pronta. 

IO REM * STATUS PERIFERICHE * 

20 OPEN15,8,13:CLOSE l5 
30 IF ST=0 THEN PRINT "DRIVER 
PRONTO ! !": GOTO 50 
40 PRINT" DRIVER NON PRONTO" 

50 OPEN :! 5,4,1.5:: CLOSE 15 
60 IF ST =0 THEN PRINl'" STAMPANTE 
PRONTA ": END 

70 PRINT" STAMPANTE NON PRONTA" 


C-128 


RICERCA DEGLI ERRORI 

Per una migliore gestione degli errori, aggiungete al 
vostro programma queste tre linee numerate così 
come le vedete. 

Se durante l’esecuzione del vostro programma si ve¬ 
rificherà un’errore, questa semplice routine vi per¬ 
metterà di riconoscere il tipo di errore commesso e 
il numero di linea ove esso si è verificato e quindi le 
linee contenenti l’errore verranno visualizzate sul vo¬ 
stro schermo. 

0 TRAP63999 

63998 PRINT * Il programma è esatto *”:END 

63999 PRINTERR$(ER);“ERRORE IN LINEA”; EL:HELP 


0 INPUT’TLOC. INIZIO & FINE",IN,FI PRINT 
PRINT"0 DATA"IN","FI",10" 

1 PRINT"10 FQR I = "IN"T0"FI "ll : READ A : POKE 
I,fi NEXT" ; PRINT1 :PRINT ’’RUN ’ ’ :G0T08 

2 READI,FI,LI K=0:PRINT ’ TOT’ ’ ; IFI=FI +1THEN 
FORI =0TOS : PR I NT I : NEXT PR I NT "L-. " GQT08 

3 LI =LI +10 ■ D$=STR$(LO Hf=RIGHT $ <UT, LEN< 
D*>-1>+" URTA " 

4 D$=STR* < PEEK < I > ) ■ A$=R$+R I GHT $ ( Il $, LEN < D 
$)- 1>: I = I +1 : IFI=FI +1THENPRINTR$ ; GOTO? 

5 IFLEN<fì$><76THENA$=fi$+",":G0T04 

6 PRINTA*:K=K+1 : IFK<8THEN3 

7 PRINT-0 DATA’T", "FI", "LI •PRINT"RUN" 

8 PRINT-tì";■FORI=631TO640•POKEI,13 ; NEXT : 
POKE198,10:END 
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SPECTRUM 


CALLING THE ROM 


Prosegue in questo numero il nostro viaggio all’interno 
della ROM alla ricerca di interessanti ed utili routines da 
usare nei nostri programmi in Linguaggio Macchina, la 
nomenclatura e le convenzioni adottate sono identiche a 
quelle dell’articolo precedente. 


PRINT CHAR 16 dee. 10 esa. 

Invia al canale corrente, selezionato con CHANOPEN, il 
carattere ASCII contenuto nell’accumulatore. 


ES. 


62,’2’ 

LD A,2 

205,1,23 

CALL 5633 

62,72’ 

LD A,72 

215 

RST 16 


201 RET 


stampa sullo schermo 
codice ASCII di ’H’; vedi 
manuale inglese da pag. 
183 

CALL alla pagina 0: un 
CALL 16 è equivalente ma 
impiega tre bytes invece di 
uno. RST 16 significa 
STAMPA IL CODICE CON¬ 
TENUTO IN A 


CLS 3435 dee. 0D6B esa. 


È equivalente al comando BASIC CLS: cancella lo scher¬ 
mo. 

ES. 

205,107,13 CALL 3435 ; cancella lo schermo 

201 RET ; finito 

Le prossime chiamate alla ROM manipolano lo Stack in 
Floating Point. Chiaramente, prima di andare a stuzzicare 
lo Stack, bisogna sapere cosa è di preciso tale zona di 
memoria. Bene, è presto detto. Chi conosce il Linguaggio 
Macchina dello Z80 sa che esiste una certa zona di me¬ 
moria riservata alla memorizzazione temporanea di dati e 
di ritorni di CALL, chiamata Stack. Per accedere a questa 
zona si usano alcune particolari istruzioni, generalmente 
PUSH, POP e RET, che scambiano con lo Stack dati a se¬ 
dici bit. Ebbene, sullo Spectrum è simulato uno Stack di 
questo tipo, con cui è possibile scambiare numeri in vir¬ 
gola mobile. Da qui il nome di Stack in Floating Pomt. Ov¬ 
viamente non esistono istruzioni in Assembler per lo 
scambio di dati con questa zona, essendo una simulazio¬ 
ne in L/M, ma esiste la possibilità di accedervi tramite 
delle CALL alla ROM. Per la difficoltà con cui viene ese¬ 
guita la manipolazione di numeri in virgola mobile, vengo¬ 
no riportate in questo articolo le CALL relative alla memo¬ 
rizzazione e alla lettura di integer ad otto od a sedici bit. 
L’utilità di queste routine non è immediata, per cui vi anti¬ 
cipiamo che OGNI operazione matematica effettuata dallo 
Spectrum avviene tramite una corretta manipolazione dei 
valori salvati in cima allo Stack in F.P. attraverso le routi- 
nes di gestione del Floting Pomt Calculator. Vedremo in 
un prossimo articolo come effettuare operazioni arnmeti- 
che in virgola mobile attraverso il Linguaggio Macchina. 

STACK—BC 11563 dee. 2D2B esa. 

Memorizza in cima allo Stack in F.P. il numero a sedici bit 


memorizzato nel registro doppio BC. Ricordarsi che tale 
operazione riserva al numero salvato in cima allo Stack 
ben cinque bytes. 

ES. 


1,’255’,’255’ 

LD BC,65535 

205,43,45 

CALL 11563 

1,’255’,’0’ 

LD BC,255 

205,43,45 

CALL 11563 

201 

RET 

Oppure 

1/2557255’ 

LD BC,65535 

205,43,45 

CALL 11563 

1,’255’,’0’ 

LD BC,255 

195,43,45 

JP 11563 


; carica i registri BC con 
65535 

; salva sullo Stack in F.P. 

; carica BC con 255 
; salva ANCHE questo valore 
; finito 


come sopra 

f» 

chiama STACK-BC utiliz¬ 
zando il RET della subrouti- 
ne per ritornare al sistema 


Notate che è possibile memorizzare sullo Stack più di un 
valore alla volta. Ciò è di vitale importanza per il calcolo 
di operazioni matematiche in virgola mobile. Si noti anco¬ 
ra che ogni numero inserito in cima allo Stack assume il 
ruolo di Last Value. I valori precedenti vengono preservati 
ma non è possibile accedervi senza cancellare il Last Va¬ 
lue. Come si vede, la somiglianza con lo Stack del Lin¬ 
guaggio Macchina è estremamente forte. 

STACK—A 11560 dee. 2D28 esa. 


Memorizza in cima allo Stack in F.P. l’intero a otto bit me¬ 
morizzato nell’accumulatore. Anche in questo caso lo spa¬ 
zio occupato dal numero ammonta a cinque bytes. 

Es. 

62, 255’ LD A,255 ; carica l'accumulatore 

195,40,45 JP 11560 ; salva e ritorna 

UNSTACK—BC 7833 dee. 1E99 esa. 


Carica i registri BC con l'ultimo valore memorizzato sullo 
Stack in F.P. Il Last Value viene quindi saivaio nei registri 
BC e il penultimo valore assume il ruoio di Las; Value 
Inoltre, se il valore che si tema d. caricare m BC non è 
compreso tra 0 e 65535 il sistema ritorna l’errore «mteger 
out of range». 

UNSTACK—A 7828 dee. 1E94 esa. 


Come per la precedente, solo cne ora si forza n oasi Va- 
iue nell'accumulatore, ritornando errore se 'urr.em n^r, 
e compreso tra 0 e 255. I. Last Vaiue diventa a penultimo 
valore memorizzato prima dell'operazione. 

PRINT—STACK 8242 dee. 2032 esa. 


invia sul canale corrente .1 Last Vaiue memorizzata su.^ 
Stack in F.P. li numero viene rimosso ea ii Las: Vaiue di¬ 
venta il penultimo valore presente prima dell'operazione, u 
seguente programmino invia sullo scnermio n numero cari¬ 
cato in BC. 
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Es. 

62,2 

205,1,22 

1/2557255’ 

205,43,45 

205,50,32 

201 


LD A,2 
CALL 5633 
LD BC,65535 
CALL 11563 
CALL 8242 
RET 


apri il canale video con 
CALL CHANOPEN 
carica i registri 
CALL STACK—BC 
CALL PRINT—STACK 
finito 


Termina anche per questo numero il nostro viaggio all’in- 
terno della ROM. Sul prossimo numero useremo queste 
routines per la gestione dei numeri in virgola mobile con 
il Linguaggio Macchina. 


A ngelo Coccet t in i 


Risposta alla lettera del sig. Antonio Rosi 


Il problema di una routine di Hardcopy ci è già stato sot¬ 
toposto varie volte, ma per un motivo o per l’altro non ci è 
stato possibile risolverlo. La mancanza di una adeguata 
documentazione, la difficoltà nella creazione di un pro¬ 
gramma Assembler valido ci hanno impedito di scrivere 
una soddisfacente routine di Hardcopy. Soltanto in que¬ 
sto ultimo periodo siamo venuti in possesso di una buona 
documentazione che ci permetterà di risolvere il proble¬ 
ma. Dateci almeno il tempo di studiarla, però! 

Per quanto riguarda la seconda domanda, hai ragione! Il 
PC128S utilizza i tre operatori sia per leggere che per scri¬ 
vere un dato nella memoria. 

Poiché sarebbe troppo lungo spiegare il funzionamento di 
ogni singolo operatore, diamo alcuni esempi significativi. 
?(100) = 70 equivale a POKE 100,70 

PRINT?(100) equivale a PRINT PEEK(100) 

L’operatore ! opera in modo analogo, ma su quattro by- 
tes. Così 

!(100) = 65535 memorizza in 100 il numero 255, in 101 
il numero 255, in 102 e in 103 zero. 
PRINT !(100) visualizza un intero a 32 bit memorizza¬ 
to nelle locazioni 100 fino a 103 

$, invece, opera come sopra, ma con stringhe di arbitraria 
lunghezza. 

$(100) = “abcde” memorizza in 100 e seguenti la stringa 
“abcde” facendola terminare con il co¬ 
dice 13 (RETURN) 

PRINT $(100) stampa la stringa memorizzata a partire 
dalla locazione 100 fino al primo codice 
13. 

Con ? e ! sono altresì permesse espressioni del tipo 
107(100) = 200 che significa 7(10 + 100) = 200 

20!(200) = 400 che significa !(20 + 200) = 400 

Veniamo al terzo punto della tua lettera. 

Innanzitutto ti informiamo che non abbiamo assolutamen¬ 
te idea di cosa contenga l’APPLE alla locazione 49152 né 
tantomeno alla 49168, per cui non sappiamo a cosa ser¬ 
visse quella POKE condizionata alla PEEK. È poi ovvio 
che il povero PC128S dia errore alla linea 60 del program¬ 
mino da te inviato, visto che non conosce la funzione 
PEEK, sostituita dagli operatori visti sopra. 


TASTI FUNZIONE PER C64 


Rispondiamo al quesito del lettore Paolo Gonella 

Effettivamente il C64 non possiede nessuna istruzione già 
implementata per la definizione dei tasti funzione. Si può 
comunque aggirare l’ostacolo utilizzando il breve pro¬ 
gramma che ti forniamo. La nostra definizione dei tasti (li¬ 
nee 1-8) è puramente indicativa: basterà sostituire le strin¬ 
ghe con i comandi desiderati ed il gioco è fatto! 


1 Fm>=”LISr’-K:HR*a3> 

2 F*<2>="RUN"+CHR*< 1 3> 

3 F$C3 • , = , ‘L0fìD , ‘ 

4 F-f- < 4 > = ' ‘SftVE 

5 Fi < 5> = ‘ ’CHRT < ’ ' 

6 F$<6> = *’PEEK<” 

7 F$= "POKE" 

8 F$ ■: 8 > = l ‘VER IF V * ’ 

1U FURI =0TO92 • RERIift PUKE49216+1 , R NEXT 
20 SVS49216■V=49151 :FORI = 1TOS■K=I-1 
30 B=V+K*8 FORJ=1TGLEN• Fi (I ■ . :ROKEB+J,RS 
C<MIH$<F$a>, J, 1>> NEXT J, I 
40 DRTR 120,169,87,141,20,3,1 69 •192,141, 
21,3,88,162,63,169,y,157,O,192,202,16 
50 l'RTR 250,96 ■ 165, 197, 201,64,208,6,141, 
151,192,76,148,192,205,151,192,240,44 
60 DRTR 141,151,192,162,3,221,152,192,24 
0,5,202,16,248,48,29,138,174,141,2,240 
70 DRTR 3,24,105,4,10,10.10.168,162,0,18 
5,0,192,157,119,2,200,262,224.8,206•244 
80 DRTR 184,198,76■49,234,64,4,5,6,3,0 


INVIATECI LE VOSTRE 

ESPERIENZE 

INTELLIGENTI! 

noi le pubblicheremo a vostro nome 
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0 4 listati presentati nei precedenti numeri della rivi¬ 
sta devono essere modificati ed integrati per pre¬ 
disporre il lancio automatico. È superfluo rac¬ 
comandare di seguire scrupolosamente le istruzioni che 
seguono e, in particolare, di inserire il punto esclamativo 
nel nome del programma di lancio (IBOOT). 

Per ulteriori spiegazioni sul significato delle operazioni 
descritte, vi rimandiamo all'articolo «PC-128 Secrets» pub¬ 
blicato nel n. 3 di marzo 1987 di LIST. 

OPERAZIONI SUL DISCHETTO 

Per poter lanciare automaticamente un programma è ne¬ 
cessario, oltre alla presenza del IBOOT, che sia attivata 
sul dischetto l’opzione di esecuzione. Inserire nel drive il 
disco con i 4 programmi già copiati e chiamate la directo¬ 
ry principale ed il catalogo: 

> *DIR$ 

> *CAT 

Controllate che i programmi siano stati registrati con i no¬ 
mi corretti (CONT - CO - AT - AA): in caso contrario carica¬ 
teli in memoria e salvateli di nuovo con il nome esatto. At¬ 
tivate infine l’opzione di esecuzione ed assegnate il nome 
al dischetto mediante i comandi: 

> *OPT4,3 
> *TITLE“DOMUS” 

MODIFICA DEI PROGRAMMI 

In ciascuno dei 4 programmi già presentati, l’opzione di 
uscita del menu provocava l’interruzione dell’esecuzione 
mediante una istruzione END: è ora necessario che la me¬ 
desima opzione richiami ed esegua il menu principale in 


modo da poter accedere senza interruzioni ad una qual¬ 
siasi parte del pacchetto; questa procedura viene abilitata 
sostituendo l’istruzione END con CHAIN“MENU”. Carica¬ 
te, pertanto, uno alla volta i programmi già copiati, batte¬ 
te il numero di riga appresso indicato per ciascuno scri¬ 
vendo accanto l’istruzione ’CHAIN‘ , MENU’ e salvate di 
nuovo sul dischetto il programma corretto. Prima di effet¬ 
tuare il salvataggio potete controllare la modifica apporta¬ 
ta eseguendo il listato: nella riga precedente e quella con¬ 
tenente l’istruzione modificata deve essere sempre pre¬ 
sente una istruzione , *DIR$’: 

Programma di contabilità domestica (CONT): 

R.780CHAIN“MENU” 

Programma per il conto corrente (CC): 

R.390CHAIN“MENU” 

Programma agenda telefonica (AT): R.2010CHAIN“ME- 

NU” 

Programma agenda appuntamenti (AA): 

R.1900CHAIN-MENU” 

PROGRAMMI INTEGRATIVI 

Battete i listati dei tre programmi riportati in fondo e sal¬ 
vateli nella directory principale (*DIR$) ciascuno con il no¬ 
me indicato. 

Le operazioni di modifica e integrazione sono a questo 
punto terminate; il catalogo della directory principale de¬ 
ve visualizzare la situazione riportata in fig. 1 (i numeri tra 
parentesi possono essere diversi). 

Potete ora eseguire il collaudo. Premete contemporanea¬ 
mente i tasti SHIFT e BREAK rilasciando prima BREAK: il 
drive inizia a funzionare e viene visualizzato il titolo; l’im¬ 
magine permane sullo schermo fino a che non viene pre¬ 
muto un tasto qualsiasi e, comunque, non oltre 10 secon¬ 
di, trascorsi i quali viene caricato ed eseguito il menu 
principale che permette l’accesso ai singoli programmi. 


Figura 1 


DOMUS 


Dri ve: 0 


Dir. $■ 


! BOOT 

WR (01) 

AT 

WR (36) 

CONTDON 

DLR(05) 


(38) 

□ption 03 (Exec) 
Lib. "Unset" 


AA 

WR 

(37) 

CC 

WR 

(24) 

MENU 

WR 

(26) 


AGEAF'F DLR (38) 
CONT WR (11) 
TITOLO WR (28) 


AGETEL DLR(13) 

CONTCORR DLR(14) 
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Programma N. 1 Nome: !BOOT 

10*DIR$ 

20CHAIN "TITOLO" 


Programma N. 2 Nome: TITOLO 


10REM***TITOLO*** 

20Z~ IWKEY(1): MODE 129:VDU5 
30FOR K=100 TO 300 STEP 50 
40GCOL0,135+K/50: VDU24 , K; K; K+800; K+60 
0; :CLG 
50MEXT 

60PROCTR(350,850,350,550,490,550,0):P 
ROCTR(375,750,375,575,450,575,13):PROCTR 
< 350,850,400,850,490,550,0) 

70PROCTR<490,850,630,850,560,550,0 ) : P 
RUCTR(535,825,590,825,560,650,13) 

S0PROCTR(700,850,630,350,770,550,0):P 
ROCTR(685,650,670,550,700,550,13):PROCTR 
(715,650,700,550,730,550,13) 

90PROCTR< 750,850,890,830,820,550,0):P 
ROCTR(790,850,850,850,820,650,13) 

100PROCTR(930,850,1050,850,910,750, 0 ) : 
PROCTR(910,750,1030,650,980,600,0):PROCT 
R ( 1030,650,910,550,1050,550,0) 

110GCOL0,2:MOVE500,350 :PRINTCHR*135;" 
EN. FA. SOFT-1‘987" 

120Z=INKEY(1000) 

130CHAIN"MENU" 

140DEFPROCTR< VX 1,VY1,VX2,VY2,VX3,VY3,C 
L) 

150MQVEVX1,VY1: MOVEVX2,VY2:GCOL0,CL 
160PLOT85,VX3,VY3 
170EMDPROC 


Programma N. 3 Nome: MENU 

10REM***MENU*** 

20*FX4,1 
30MODE135 

40PRINT TAB(14) CHR$129;CHR*141 ;"MENU 
":PRINT TAB(14) CHRS129;CHRS141;"MENU" 
50DIM A*(4):FOR K=1 TO 4 : READ Af(K):N 

EXT 

60FOR K=1 TO 4: F'RINT TAB(0,K+4) CHR$1 
56 ; CHR$135 ; " " ; A* ( K ) : NE XT : P= 1 : PF'= 1 

70PRINT TAB(0,22) CHRT132;CHRT157;CHR 
$131;CHR$136;"Selezionare coi comandi de 
1 cursore": F'RINT CHR$ 132 ; CHR$ 157 ; CHR$ 131 
;CHR$136;"e premere 9 RETURN 7 " 
80PROCscelta 
90A=GET 

100IF A=138 THEN 180 
110IF A=139 THEN 190 

120IF A=13 THEN CLS:ON P GOTO 140,150, 
160,170 
130GOTO90 
140CHAIN"CONi" 

150CHAIN"CC" 

160CHAIN"AT" 

170CHAIN"AA" 

180IF P<4 THEN PP=P: P=F'+1 : GOTO80 ELSE 
P=4 : GQTQ80 

190IF P>1 THEN PP=P:P=P—1 :GOTO80 ELSE 
P=1 : :GOTO80 

200DEFF‘ROCscel ta 

210PRINT TAB(0,PP+4) CHR$156 ;CHR$137;" 
";A$(PP) 

220PRINT TAB (0 , F'+4) CHR$ 131; CHR$ 157 ; CH 
R$129;CHR$136 ; A*(P) 

230ENDPROC 

240DATA Contabilita’ domestica,Conto c 
orrente bancario,Agenda teiefonìca,Aqend 
a appuntamenti 


ATTENZIONE! A pagina 63 di LIST n. 10, nella colonna n. 4. spostare le ultime 11 righe inserirle in alto ad inizio colonna. 

Ci sono molti modi di 

COLLABORARE A LIST... 

* Facendolo esporre bene in vista, in edicola; 

* Facendolo acquistare anche agli amici; 

* Inviando programmini di propria creazione; 

.ma ce n'è uno che li batte tutti! 

ABBONARSI! (Pensaci! Il nuovo anno è vicino) 
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PROGRAMMA 


PRODEST di Coccettini e Vannini 



i sono i soliti alienastri che tentano di abbatervi adottan¬ 
do la già collaudata tecnica del kamikaze. È chiaro che 
la vostra astronave non deve urtare le pareti roc¬ 
ciose per ovvi motivi tecnici. Come se non bastasse, il vostro com¬ 
puter di bordo non ha tutti i transistor a posto e ciò si riperquote 
sui motori con improvvisi cambiamenti di rotta. Come potrete no¬ 
tare voi stessi, il gioco non presenta particolari difficoltà concet¬ 
tuali ma, essendo molto veloce, richiede una certa prontezza di 
riflessi e anche una buona dose di fortuna. 

Il programma è scritto interamente in BASIC eccetto una parte 
in linguaggio macchina alle linee 2210-2300 dove troviamo una 
routine usata dalla funzione FNCHECK (linee 260-290) per iden¬ 
tificare un carattere posizionato alle coordinate specificate nel¬ 
l'argomento della funzione A questo punto auguriamo buon lavoro 
e soprattutto buon divertimento. 
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LIST 


590 s 

600 DEFPRDCPRINT 

610 IF CONDX=0 AND RND(10)<2 A*=A 
*+CHR$<42> 

620 VDU 31 , X7., VT7, 32 
630 VDU 31,XX,VTX-1,32 
640 VDU 31 ,33,0: FRI NT P* 

650 VDU 31,0, VE'/. 

660 IF SCFLAGX-TRUE VDU 31,0,0,11 
670 PRI NT A* j TAB ( 39--LEN < B$ ) ) ; B* 
680 XRX=DX+RND (39-EX-DX-1 ) 

690 IF COND7=0 AND RND(CHANCEX)<2 
VDU 31 , X R7., X RY7., 135 
700 DX 1 7=D7. : □ X2X=EX 
710 fì$=" " : B$=" " : Q$=" " 

720 ENDPROC 
730 : 

740 DX=RND (17): EX=RND (17) 

750 IF COND7.-0 AND RND (10) <2 B$=C 
HR$(42) ELSE B*="" 

760 IF DX>OX 1 7 D7=0X 17.4 1 : Q$=W$ 

770 IF D'/.<0X17. DX=OXlX-lsQ$=Y$+R* 
780 IF DX=OX 17. Q*=L$ 

790 IF E7>0X27 EX=0X2X+1s BT=B*-+-IJT 
800 IF E7<0X27 E7=0X27-1 :Bf=BT+1 1 
+Y$ 

810 IF E7=0X27 BT=BT+LT 
820 PROCSTRINGS 
830 RETURN 
840 : 

850 IF RND(10)< 2 B*=CHR*(42) ELSE 
B*="" 

860 IF HIGH7>5 AMD RND(7)<2 D7=RN 
D ( 17):E7=RND(19):HIGH7=0: 0X17=D7: 0X 
27=E7 

870 HIGH7=HIGH7+1 
880 PROCSTRINGS 
890 RETURN 
900 : 

910 D7=2:E7=RND(24) 

920 GOSUB 750 

930 A$=A$+STRING*(RND(8),CHR*(32) 

) 

940 RETURN 
950 : 

960 DEFPROCWIM 
970 SC7=SCX+1 
980 SOUND 1,-14,SCX*2,2 
990 ENDPROC 
1000 : 

1010 DEFPROCBEGIN 
1020 FOR W"/.= l TO 35 
1030 PROCKEY 
1040 SOUND 1,1,60,1 
1050 GOSUB 740 
1060 PROCERI NT 

1070 IF CHECK7.> 127 OR CHECK 17>127 
ENDPROC 
1080 NEXT 
1090 CGNDX=0 
1100 ENDPROC 
1110 : 

1120 DEFPROCCHANGE 
1130 SOUND 1,1,75,10 


1140 RFLAG7=0 

1150 IF SCFLAG7=TRUE SCFLAG7=FALSE 
ELSE SCF LAG7=TRUE 
1160 IF VE7=0 VE7=31 ELSE VE7=0 
1170 IF XRY7=1 XRY7=30 ELSE XRY7=1 
1180 W$=R$ 

1190 IF R$=CHR$(131) R$=CHR*<130> 
ELSE R$=CHR*<131> 

1200 I$=U$ 

1210 IF U$=CHR$<134> U*=CHR*(133) 
ELSE U$=CHR*<134) 

1220 ENDPROC 
1230 : 

1240 DEFPROCLAND 
1250 Q$="" 

1260 A$="" 

1270 HIGH7=0 

1280 IF CHANCE7=10 CHANCE7=5 ELSE 
CHANCE7=10 
1290 LANDX=LAND7+1 
1300 IF LAND7=3 CHANCE7=2 
1310 IF LAND7=4 LAND7=1 
1320 ENDPROC 
1 330 : 

1340 DEFPROCINIT TABLE 
1350 DIM S0RT7 (10), SORT$(10) 

1360 FOR W7=l TO 9 

1370 S0RT7(WX)=10-W7 

1380 SORTT(W7)="TERROR TERRAIN" 

1390 NEXT 

1400 ENDPROC 

1410 : 

1420 DEFPROCHEADER 

1430 PRINTTAB(9)"***************** 
*********" 

1440 PRINTTAB(9)"*** TERROR TER 
RAIN •***" 

1450 PRINTTAB(9)"*** by 

***" 

1460 PRINTTAB<9)"*** Angelo Cocce 
ttini ***" 

1470 PRINTTAB(9)"*** Giulio Vann 
ini ***" 

1480 F'R INTTAB ( 9 ) " ***************** 
*********" 

1490 ENDPROC 
1500 : 

1510 DEFF'ROC INSTRUCTIONS 
1520 CLS:PROCHEADER 

1530 PRINT:PRINT:PRINT " ";CHR$( 

139): PR I NT " " ; CHR$ ( 1 40 ) ; " = Your 

ship.";TAB(23);CHR$(135);" = Alien 
ship." 

1540 PRINT:PRINT" * = orb alone. 
" ; TAB (23) ; CHR$ ( 131 ) ; " = Rock surf ac 
e. " 

1550 PRINTSPRINTSPRINT" Z = RI 

6HT.";TAB(25);"X = LEFT." 

1560 PRINTSPRINTSPRINT" * = UP 

. H ;TAB<25);"? = DOWN." 

1570 PRINT:PROCSPACE 
1580 ENDPROC 
1590 s 

1600 DEFPROCCRASH 
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TERROR TERRAIN 


PCI28S 


LIST 5 


LIST 6 

1610 *FX 15,1 


2190 ENDPROC 

1620 SOUND 0,-15,60,10 


2200 : 

1630 VDU31 , XX , VTX--1,141 


2210 DEFPROCASS 

1640 VDU31 , X■/., VT7. ,142 


2220 DIM START7. 50 

1650 PROCSPACE 


2230 FGR 17=0 TO 2 STEP 2 

1660 IF SC7.>SORT7. (9) PROCNAME 


2240 P7=START7 

1670 ENDPROC 


2250 COPI 17. 

1680 : 


2260 JSR &FFF4 

1690 DEFPROCTABL..E 


2270 STX &70 

1700 CLSsPROCHEADER 


2280 RTS 

1710 PRINISPRINT 


2290 1NEXT 

1720 FGR W7.= l TO 9sPRINT SPC(4):"" 


2300 ENDPROC 

; W7. ; " . " 5 TAB (10); SORT# ( W7. ) : TAB ( 32 j 5 S 


2310 : 

GRT7. ( W7. > 


2320 DEFPRGCCHAR 

1730 FRINÌ:NEXT 


2330 VDU 23„128,255,255,255,255,25 

1740 FRINÌ 


5,255,255,255 

1750 PRGCSPACE 


2340 VDU 23,129,170,170,170,170,17 

1760 ENDPROC 


0,170,170,170 

1770 s 


2350 VDU 23,130 128,0,224,0,248,0 , 

1780 DEFPROCNAME 


254,0 

1790 CLS:PROCHEADER 


2360 VDU 23,131,255,0,252,0,240,0, 

1800 VDU 31,0,10 


192,0 

1810 *FX 11,0 


2370 VDU 23,133,1,0,7,0,31,0,127,0 

1820 PRINT" Enter your name:" 


2380 VDU 23,134,127,0,31,0,7,0,1,0 

1830 NANE#— ""si JP#=" " 


2390 VDU 23,1,0:0:0:0: 

1840 COL.OUR 131; COLOUR 0 


2400 VDU 23,135,24,36,60,24,36,66, 

1850 REFEAT 


90,0 

1860 VDU 31,20,10 


2410 VDU 23,138,255,0,255,0,255,0, 

1870 PRINT NAME#;STR1NG#(18-LEN(MA 


255,0 

ME#),CHR#(32)) 


2420 VDU 23,139,0,24,36,66,66,102, 

1880 PROCWRI TE:PROCUPDATE 


24,24 

1890 UNIIL UP#=CHR#(13) 


2430 VDU 23,140,24,24,102,66,66,36 

1900 CGLGLJR 128: COLOUR 1 


,24,0 

1910 PRQCSQRT 


2440 VDU 23,141,68,40,42,144,89,58 

1920 *FX 11,25 


,28,255 

1930 ENDPROC 


2450 VDU 23,142,30,57,92,154,25,36 

1940 ; 


,34 ,66 

1950 DEFPROCWRITE 


2460 *FX 4,1 

1960 REFEAl 


2470 ENDPROC 

. 1970 IJP#= INKEY# (0) 


2480 s 

1980 IJNT1L ASC ( IJP# ) < 128 AND ASC (LJP 


2490 DEFPR 0 CSPACE 

# ) > 12 


2500 P RIN T T A B ( 0,3 0 ) : " * * * P R E S 

1990 *FX 15,0 


S THE SPACE BAR *** 

2000 ENDPROC 


2510 REPEAT UNIIL GEI=32 

2010 s 


2520 CLS:ENDPROC 

2020 DEFPROCUPDATE 


2530 : 

2030 IF IJP#=CHR# ( 127) NAME#=LEFT#( 


2540 DEFPR0CR0CKE T 

NAME#,LEM(NAME#)-1)sENDPROC 


2550 VDU 31 , R X 7., SY7+RFLAG7-1 , TV V/C 

2040 IF UP#=CHR#(13) ENDPROC 


2560 IF XRY7=30 RX7.=RX7.+RND (3) : SV / 

2050 IF LEM (NAME#) =18 THEN SOLJND 2 


=SY7-2 ELSE RX7=RX7+RND(3) : SY7.=SY7.+ 

,-14,100,10:ENDPROC 



2060 NAME#=NAME#+UP# 


2570 RFLAG7=RFLAG7+1 

2070 ENDPROC 


2580 TYV7.=FNCHECK ( SY7.+RFLAG7., R X7. ) 

2080 s 


2590 VDU 31 , RX7., SY7.+RFLAG7., 135 

2090 DEFPRGCSGRT 


2600 IF RX7.=0 OR RX7.=38 OR SY7.C0 R 

2100 FGR SIFT7.=9 TO 1 STEP -1 


FLAG7=0 : VDU 31 , R X 7., SY7+RFLAG7-1 , TYV 

2110 IF SC>: >SORT7. ( SIFT7.> FL7.=SIFT7. 


7. 

2120 NEXT 


2610 ENDPROC 

2130 FGR SIFT7.-9 TO FL7. STEP -1 


2620 : 

2140 SORT 7. (SI FT7 .+1 ) =SORT7. (SIFT7.) 


2630 DEFPROCRBEGIN 

2150 SORT# ( SI FT7.+1 ) =SORT# ( SIFT7. ) 


2640 IF SCFLAG7 THEN ENDPROC 

2160 NEXT 


2650 RX7.= 1 : SY / = XRY7 .2 RFL.AG / = 1 : TYV» 

2170 SORT7. ( FL7. ) =SC7. 


129: IF LAND7.=3 TYV7.=32 

2180 SORT# < FL7. ) «NAME# 


2660 ENDPROC 
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Tecniche di H ^ 

computergrafica 2# 

1 1 di 0. Contenti 

LISTATI PER IVESX IMPLEMENTARE LI A TUTTI GLI HOME COMPUTER 


Un grande ordine nei caos 


ei precedenti incontri di computergrafica abbiamo 
constatato come la matematica regoli ferreamen¬ 
te qualsiasi rappresentazione geometrica. 

Nessuno si è sorpreso di questa prova, poiché nel nostro 
meccanismo di immagine l’idea della matematica si co¬ 
niuga indissolubilmente con l’attributo di «scienza 
esatta». 

E d’altra parte, pervasi come siamo da: guadagni in PER¬ 
CENTUALE, appartamenti misurati in METRI QUADRI e ar¬ 
ticolati BUDGET di spesa, come potremmo pensarla diver¬ 
samente? L’esattezza della scienza numerale ci profonde 
sicurezza e stabilità necessarie al disbrigo delle varie atti¬ 
vità quotidiane! 

Eppure tutto questo castello perfettamente ordinato, se 
fatto sfociare nelle sue diramazioni più complesse, può 
portarci alla soglia di veri «BUCHI NERI» matematici, ov¬ 
vero in determinate zone dove l’ordine precostituito divie¬ 
ne caos. 

Uno di questi esempi viene stabilito dall’ALGORITMO DI 
MARTIN (della Università di Birmingham). 

Con la sua formula egli ci consente di incamerare, attra¬ 
verso l’uso di un semplice HOME, una serie di immagini 
ispirate da un «caos controllato», capace di riportarci alla 
visione leonardesca di macrocosmo e microcosmo, in 
quanto, usufruendo del fattore di INGRANDIMENTO, po¬ 
tremo ammirare sia l’immagine totale che l’intricatissima 
architettura interna zoomandone via via la struttura. 

Il fulcro di queste incredibili figurazioni viene denominato 



ATTRATTORE, che in altre parole potrebbe essere parago¬ 
nato alla FORZA DI GRAVITA espressa da un pianeta. 
Continuando nella similitudine, potremmo dire che la 
struttura grafica di ogni immagine viene dettata dall’equi¬ 
librio instauratosi fra il PIANETA e i SATELLITI-PIXEL che 
gli ruotano attorno. 

Ma non crediate che Martin sia il solo e datempo studio¬ 
so dei confini deliziosamente imperfetti della matematica; 
i «fratelli» di Mandelbrot e gji «attrattori» di Hénon, costi¬ 
tuiscono dei validissimi esempi di questa ricerca, esempi 
di iterazione caotica che non mancheremo di analizzare 
nelle puntate a venire. 

Ma torniamo a Martin e cerchiamo di comprenderne ap¬ 
pieno l’algoritmo. 


I passi per l’interazione di Martin sono assai semplici e 
ben si adattano anche alle prerogative minime degli home 
computers. 

Seguiamone le 6 fasi: 

1 — Impostare generalmente le coordinate di partenza X 
ed Y a zero (più in avanti proverete a differenziarne i valo¬ 
ri) 

2 — Impostare a piacere (o con i PARAMETRI CONSI¬ 
GLIATI) le variabili: A; B e C, che determineranno ogni vol¬ 
ta un’immagine diversa 

3 — Impostare le variabili: I; PX e PY, rispettivamente ri¬ 
guardanti: l’ingrandimento della figura (più alto è il valore 
più la figura sarà ingrandita), il posizionamento verticale 
dell’Immagine e infine quello orizzontale 

4 — Svolgere le operazioni illustrate nelle righe 50 e 60 
(determinazione di XI e Y1) contenute nel listato allegato 

5 — Far stampare nella più alta risoluzione possibile i pi¬ 
xel risultanti dalle operazioni del punto (4) (nel listato vedi 
righe 70 e 80) 

6 — Porre X = X1 e Y = Y1, quindi tornare con un ciclo 
chiuso al punto (4) già esposto 

Conosciuta a fondo la teoria, possiamo senz’altro tuffarci 
nella risoluzione in listato, che, lo ripeto, è sempre scritta 
originariamente per gli MSX, ma attraverso una lettura 
della tabella delle istruzioni equivalenti può essere tradot¬ 
to per molte versioni di HOME. 


INI 


E L’algoritmo di Martin 


IX 








■ Il listato 


5 REM L’ALGORITMO DI MARTIN 
10 CLS 
20 X=0:Y=0 

30 INPUT ”DATI PER: A;B;C; I ;PX;PY ";A,B 
,C,I,PX,PY 

40 SCREEN 2:COLOR 15,1,1:CLS 
50 X1=Y-SGN(X)*SQR(ABS(B*X-C)) 

60 Y1=A-X 

70 PSET<X*I+PX,Y*I+PY> 

80 PSET(X1*I+PX,Y1*I+PY) 

90 X=X1:Y=Y1 
100 GOTO 50 


Per gli implementatori bisogna chiarire che: 

■ La riga 10 con CLS pulisce lo schermo 

■ La riga 40 con SCREEN 2 determina l’HI-RES (255,192); 
il COLOR 15,1,1 stampa i pixel BIANCHI su fondo NERO 

■ Le righe 70 e 80 con la PSET stampano i singoli punti, 
sapendo che la sintassi minima (MSX) usata per la PSET 
è: «numero colonna, numero riga». 

In pratica, l’unica fatica che il programma vi chiederà di 
compiere, sarà quella di digitare i valori A; B; C; I; PX e PY 
richiesti, poi il computer farà tutto il resto, riversando sul¬ 
lo schermo una ingente quantità di punti ad una velocità 
pari a quella del suo CLOCK interno, quindi non vi arrab¬ 
biate se dovrete aspettare un po’ per vedere un’immagine 
efficace. 



■ La tabella dei parametri 

Prima di prendervi la mano potreste essere piuttosto inde¬ 
cisi sui valori da affibbiare alle variabili in INPUT; per que¬ 
sto è pronta per voi una tabella dei PARAMETRI CONSI¬ 
GLIATI per vederne subito delle belle. 

Gli stessi parametri hanno dato poi i risultati in video che 
vedete proposti nel riquadro delle illustrazioni, ma tenete 
conto che queste sono state riprese su monitor monocro¬ 
matico di un ATARI 1040 e i fattori di ingrandimento usati 
non sono sempre quelli riportati in tabella. 


PARAMETRI CONSIGLIATI 


Figura 

A 

B 

C 

1 PX PY 

Tempo minimo 

A 

5 

0.8 

1.6 

10 100 80 

3 

B 

0.3 

-3 

2.7 

10 100 80 

4 

C 

—0.7 

— 1 ^ 

—4 

7 120 80 

6 

D 

8 

—4 

—0.48 

7120 80 

5 

E 

7 

—8 

—4 

5 120 80 

5 

F 

0.1 

2 

31 

3120 80 

9 

G 

13 

—0.8 

-65 

3 120 80 

3 

H 

14 

—0.7 

—74 

3 120 80 

7 

1 

16 

0.6 

4.8 

6 90 40 

3 

L 

4 

0.6 

—0.48 

6 110 80 

5 

M 

—0.48 

4 

0.6 

9 110 80 

7 

N 

4 

— 1 

—0.7 

9110 80 

2 


C’è da rilevare che il tempo minimo è calcolato in minuti, 
ma dopo questo tempo, se avrete pazienza, vedrete l’im¬ 
magine evolversi ulteriormente, e trasbordare alle volte ol¬ 
tre i limiti dello schermo. 

Altre volte, invece, la figura intererà sé stessa, entrando 
in un loop infinito di ridefinizione dei medesimi punti trac¬ 
ciati. 

Per evitare qualsiasi vostro inno a Zeus farcito di collera 
informatica, devo ancora aggiungere che le variabili PX e 
PY potrebbero non corrispondere alla vostra risoluzione in 
video, nel qual caso cambiatele; e ancora che per alcuni 
home abbiamo riscontrato un’uscita in OVERFLOW dei ri¬ 
sultati operazionali, in questo caso un controllo 
IF....THEN dei dati emessi sarebbe d’obbligo. 



■ Variazioni del listato 

Naturalmente, dopo aver provato i parametri esposti e 
aver agito con dati propri sulle variabili A, B e C, vi verrà 
voglia di manipolare il listato per ottenerne qualcosa di 
diverso; di seguito vengono appunto formulate alcune ipo¬ 
tesi di intervento che producono dei fascinosi mutamenti. 

— Variare i dati iniziali di X e Y diversificandoli da zero 

— Porre diversi tipi di ingrandimento nel plottaggio di co¬ 
lonna e riga 

— Differenziare i valori di PX e PY di ogni plottaggio 








— Agire da tastiera per un mutamento formato da XI e 
Y1 

— Mutare la funzione SQR di riga 50 con COS o SIN 

E mi raccomando, se riuscirete a trovare altre variazioni 
dall’andamento interessante, speditecele! Un altro «raid» 
di Martin su queste pagine credo non dispiacerebbe a 
nessuno 


■ Martin a colori 

L’ultimo capitoletto di questa vera e propria «saga di Mar¬ 
tin» non poteva che essere dedicato al colore, cioè alla 
possibilità di aggiungere a queste superbe immagini un 
tocco d’artista con effetti pluricromatici. 

E qui la tavolozza dei suggerimenti è veramente molto 
estesa; vediamone alcuni esempi: 

— Impostare con una RND la scelta del colore 

— Seguire il numero di «ovoidi» impostato dalla figura e 
farvi ruotare un identico numero di colori a ripetizione 

— Cronometrare il tempo di realizzazione delle varie zone 
per collocarvi ogni volta un colore diverso 

— Osservare la ricorsività dei numeri incamerando dei 
gruppi di cifre a dei relativi codici-colore 


■ Note sull'algoritmo di Martin 


Proprio mentre questo articolo sta passando in «macchi¬ 
na», ci sono balzate all'occhio alcune variazioni al listato 
propostovi che certamente faranno piacere ài lettori più 
intraprendenti. 

• Variante 1 

Cambiate la riga 80 in: 

80 LINE- ( XI x I + PX,Y1 x I + PY ) 

Questo mutamento farà tracciare al computer delle linee 
che uniranno i punti sinora descritti.dai parametri consi-' 
gliati, creando immagini completamente diverse dalle ori¬ 
ginali e di grande effetto scenografico. 

C’è da precisare ai possessori di altri Home, che l’MSX 
considera l’istruzione LINE— con quel che segue una LI¬ 
NE che si rifà necessariamente alle coordinate di parten¬ 
za precedentemente raggiunte, ovvero a quelle della riga 
70. Si renderà quindi necessaria una diversificazione di 
sintassi per chi non possiede l’MSX. 

• Variante 2 

Eliminare le righe 70 e 80 del listato originale e aggiunge¬ 
re una riga 85 così compilata: 

85 

LINE ( XI x I + PX,Y1 x I + PY ) - ( X X I + PX,Y x I + PY ),15,B 
In questo caso il computer descriverà delle fitte ma ordi¬ 
nate «camere» in luogo dei punti ai quali eravamo abitua¬ 
ti, usufruendo del suffisso B. Anche qui ricordiamo che 
"B” non è una variabile ma il simbolo grafico che l’MSX 
riconosce per PERIMETRO DI BOX (vedi Tavola delle istru¬ 
zioni equivalenti). 

• Variante 3 

Modificare le righe 70 e 80 nel modo seguente: 

70 CIRCLE ( X x I + PX,Y x I + PY ),10,4 

80 CIRCLE ( XI x I + PX,Y1 x 1 + PY ),15,10 

Il programma stamperà delle CIRCONFERENZE in luogo 



dei punti assegnati, tramutando in bicolore la grafica pre¬ 
cedente, infatti le cifre 4 e 10 delle righe 70 e 80 sono co¬ 
dici colore del BLU (4) e del GIALLO (10), mentre le prece¬ 
denti cifre 10 e 15 non sono altro che i RAGGI di ciascun 
cerchio. 

• Variante 4 

Continuando a manipolare Martin sarà certo divertente di¬ 
gitare: 

70 CIRCLE ( X x I + PX,Y x I + PY ),10,4 
80 LINE— ( XI X I + PX,Y1 x I + PY ),10 
Senza rispiegarvi la sintassi che ormai conoscete, c’è so¬ 
lo da rilevare che anche in questo caso la grafica sarà bi¬ 
colore, mischiando in modo interessante linee e cerchi in 
un assemblaggio dai buoni esiti. 

• Variante 5 

Stupende ed inaspettate variazioni si ottengono con: 

50 XI = Y—SGN ( X ) x COS ( ABS ( B X X—C ) ) 
riga nella quale abbiamo tolto la funzione SQR per rim¬ 
piazzarla con la funzione COS (coseno), e qui risulta im¬ 
possibile descrivere il cambiamento grafico che se ne ot¬ 
tiene, vi basti sapere che pur tenendo fede allo «stile mar- 
tiniano», le figurazioni appaiono più libere ma allo stesso 
tempo più ordinate. 





Occorre aggiungere che con questa variante, attingendo 
dalle esperienze fatte, ne ho tratto che nella maggior par¬ 
te dei casi il fattore di INGRANDIMENTO va tenuto molto 
basso poiché la figura tende ad uscire dallo schermo; 
consiglierei per questo valori addirittura minori di 4, fino 
ad arrivare in casi estremi ad un fattore di scala 1. 

• Variante 6 

La sesta variante è per i più pazienti, infatti essa dimo¬ 
strerà la sua efficacia a ondate successive di pixel inter¬ 
vallate da lunghi momenti di attesa dove i medesimi punti 
vengono evidentemente tracciati più volte. 

Per provarla digitare: 

50 XI = Y—SGN ( X ) x ATN ( ABS ( B X X—C ) ) 

La funzione inserita questa volta è ATN che sta per AR¬ 
COTANGENTE e a differenza della precedente predilige 
ampi fattori di ingrandimento (10—20) per valorizzarsi a 
pieno. 

Sto riprovando questa variante su computer MSX mentre 
redigo questo stesso articolo, ed essa mi propone sul mo¬ 
nitor con fantastici ricami perimetrali . mi chiedo anco¬ 

ra come Martin sia riuscito a sviscerare questa incredibile 
formula. 

• Variante 7 

Ponete alla solita riga 50 la funzione TAN (tangente) al po¬ 
sto di SOR, rammentando di mettere a UNO il fattore di 


ingrandimento I. 

Il risultato sarà spesso assai caotico e purtroppo, per 
stessa natura della TAN, uscirà presto fuori schermo; ma 
non è detto che qualche particolare PARAMETRO con la 
«contenga» più efficacemente, provate. 

• Variante 8 

Cambiate la riga 60 con: 

60 Y1 = B—X 

Questo che può apparire un innocuo mutamento fa slitta¬ 
re il «solito Martin» in grafismi che riprendono l’idea dei 
CRISTALLI DI NEVE, e non mi dite che non vi piacciono! 
Ricordate solo di tenere alta la cifra corrispondente all’in- 
grandimento. E ora non mi rimane che inoltrarvi l’invito di 
scrivere alla riubrica: «Aided Styling», LIST Via Flavio Stili- 
cono 111, 00175 Roma, per proporci dei vostri elaborati 
grafici su LISTATO o CASSETTA con relativa spiegazione 
delle routine usate; i più meritevoli saranno pubblicati con 
la firma dell’autore, mentre alle riproduzioni fotografiche 
penseremo noi. 

■ Bibliografia «caotica 

Per quei lettori che fossero desiderosi di saperne di più su Mar¬ 
tin e sugli altri due studiosi citati, ecco una bibliografia minima 
quale attingere informazioni: MARTIN — rivista «LE SCIENZE» 
novembre 1985; MALDELBROT — «The fractal geometry Nature» 
di B. Mandelbrot, edizioni Freeman, 1982; HÉNON — rivista «LE 
SCIENZE» settembre 1987 



TAVOLA DELLE ISTRUZIONI EQUIVALENTI 

Funzioni 

Sistemi 

MSX 

SIMON 

C64 

CBM 

128 

OLIVETTI 

PC 128 

SEGA 

SC 3000 

ATARI 

520 

SPECTRUM 

ZX 48 K 

Punti 

PSET 

PLOT 

DRAW 

PSET 

PSET 

LINEF 

PLOT 

Linee 

LINE 

LINE 

DRAW 

LINE 

LINE 

LINEF 

DRAW 

Riempie 

PAINT 

FILL 

PAINT 

PAINT 

PAINT 

PAINT 

O O 0 o 

Cerchi 

CIRCLE 

CIRCLE 

CIRCLE 

CIRCLE 

CIRCLE 

CIRCLE 

CIRCLE 

Blocchi pieni 

LINEBF 

BLOCK 

BOX 

BOXF 

(PAINT) 

(FILL) 

o o o o 

Blocchi vuoti 

LINEB 

(LINE) 

BOX 

BOX 

(LINE) 

(LINEF) 

o o o o 


Legenda: (PAINT) = le istruzioni fra parentesi possono simulare con qualche variazione la funzione desiderata 
— 00 0 0 = istruzione non presente. 















piacere dell’animazione 


inmni 


iDCcnnnnm 


mnm 


nmnm 


innnnn 


rrnnnnn 


Bounnnnnnni 


ìBBonandnnno 


Per sistemi 

MSX 


La terza generazione di utenti del computer ha inanel¬ 
lato in questi ultimi anni tali e tante esperienze di im¬ 
magine: dai laser-games alle video clip digitali, da non 
accontentarsi più di veder scaturire dal proprio elabo¬ 
ratore, per quanto piccolo sia, delle videate piatte e 
senza vita con una grafica maltrattata a tutto vantag¬ 
gio della sola velocità di esecuzione. 

Questa «maggioranza rumorosa» ed informatizzata, au¬ 
spica quindi l’avvento degli esperti deH’immagine nel 
campo della programmazione, chiedendo a questi ulti¬ 
mi dei listati-base, semplici ma di ottima fattura, che 
facciano da nave-scuola nell’immenso e fascinoso 
oceano della grafica. 

La rubrica delle «Animazioni computerizzate» nasce 
proprio da queste nuove istanze e tutte quelle immagi¬ 
ni che avreste voluto osservare sullo schermo, come la 
fuga prospettico-tridimensionale di un’astronave o i 
movimenti plastici di un omino in corsa o ancora le va¬ 
riazioni somatiche di un personaggio parlante, saranno 
da adesso alla vostra portata. 

Il viatico per impradonirsi di queste particolari tecniche 
sarà rappresentato da listati super-analizzati e persino 
da «carte mappate» riproducenti pixel per pixel la grafi¬ 
ca operante di ogni programma. 

La chicca delle carte mappate è il vero transito per una 
vostra futura produzione di soggetti animati, poiché 
non essendo questa la sede per organizzare un corso 
di disegno, va da sé che prima copiando e poi operan¬ 
do gradatamente le variazioni preferite, riuscirete a tra¬ 
sformare a vostro piacimento le immagini che vi abbia¬ 
mo reso; per certi versi, quindi, farete anche pratica di 
disegno. 

Crediamo a questo punto di aver stuzzicato i palati più 
fini con la illustrazione degli ingredienti di questo 
«mousse au graphique» e quindi non resta altro che 
passare al tema grafico di questo mese. 


Leggenda dei colori 


NERO 

GIALLO 

ROSA 


di Osvaldo Contenti 


1 a PUNTATA 
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Fig. C 


Fig. D 



Fig. B 



Fig. E 


Il tema del mese 

Variazioni Somatiche 
di un soggetto parlante 

n ntendiamo partire proprio alla grande nel nostro 
viaggio allo interno dell’animazione, difatti, digita¬ 
to il programma, vedrete apparire sullo schermo 
un person aggio di grandi dime nsio ni che sembra appena 

us cito dalle pa gine di un bel f umetto a co lori. 

I tratti del volto marcati in nero come il busto, il colorito 
rosa della pelle ed il biondo della folta capigliatura affio¬ 
ranti da uno splendido fondale in bleu, vi ridurranno in ca¬ 
talessi grafica con relativo «sproing» dei bulbi oculari. 

Che Cosa Farà 

Il vostro personaggio comincerà subito a simulare i movi¬ 
menti fac ciali tipici del parlare e a muoversi non saranno 
sole le labbra, ma anche le sopracciglia, gli occhi, le gote 
e il solco degli zigomi; in seguito il personaggio animato 
si volterà per mostrarci il profilo, tornando senza soluzio¬ 
ne di continuità nuovamente al prospetto e alla mimica 
della parola. 

Come è costruito? 

L'immagine è stata realizzata assemblando degli sprite 
16x16 formanti un rettangolo 2x3 che produce complessi¬ 
vamente una mappa di 1536 pixel. 

Per ottenere l’effetto multicolore si sono dovuti sovrappor¬ 
re più sprite a diverso livello e le variazioni somatiche non 
sono altro che il continuo e casuale mutamento dello 
sprite n. 2 che raccoglie i caratteri somatici più significa¬ 
tivi; tale sprite (vedi fig. A) ha il suo apice (in alto a sini¬ 
stra) in coincidenza della prima colonna e della 17 a riga 
dell’intera mappa-sprite. 

Le varianti somatiche, preventivamente vettorizzate in S$ 
(ciclo 300-370) vengono stampate in modo RND per 100 
volte dal ciclo insito fra le righe 450-490, questo sempre 
dopo la stampa del prospetto che invece avviene nella ri¬ 
ga 410. 

La stampa del profilo avviene nella riga 540, ma prima (i 
più smaliziati l’avranno già notato) c’è una strana stampa 
di un BOX pieno per conto della linea 420; questo BOX di 
colore giallo, stampato sotto agli sprite del PROSPETTO, 
dapprima sarà completamente coperto dallo stesso, ma 
una volta passati alla versione PROFILO sortirà il suo ef¬ 
fetto, difatti esso coprirà otticamente un piccolo buco di 
immagine derivate dallo scambio intervallato delle due 
posizioni del volto; provate a togliere questa riga e notere¬ 
te una sensibile differenza; anche questi piccoli trucchi 
favoriranno la perfezione in stampa delle vostre immagini, 
ricordatelo. 


Come Intervenire sul Listato 

Lo potrete fare a diversi livelli e con la più grande sempli¬ 
cità, vediamolo assieme: 

(A) Velocità di ogni variazione somatica 

È condizionata dalla riga 480 e precisamente dal ciclo T 
(posto a 50); mutate a piacere questa cifra e il personag¬ 
gio parlerà più o meno velocemente. 

(B) Permanenza della stazione di PROFILO 

È stabilita nella riga 550 dal ciclo G e dal suo limite posto 
a 2000; mutate anche questa cifra per stazionamenti più o 
meno prolungati. 

(C) Numero delle variazioni somatiche 

Fa capo alla riga 450 del ciclo G, operate come sopra, 
mutando la cifra dei 100 cicli impostati. 

Utilizzazione del programma 

Lasciando il listato così com’è per la veste grafica ma ag¬ 
giungendo solo il «baloon» (la nuvoletta) tipica dei fumet¬ 
ti, potrete arricchire i titoli dei vostri più bei programmi, 
accompagnando la mimica del personaggio con frasi ido¬ 
nee al listato. 


Usando L’inventasprite 

Se poi deciderete di modificare a vostro piacere le fattez¬ 
ze del personaggio, vi consiglio di utilizzare «L’inventa¬ 
sprite», un programma per MSX già apparso su LIST nel 
mese di marzo del corrente anno; se avete perso quel nu¬ 
mero potrete richiedere la cassetta tramite il nostro Servi¬ 
zio Programmi. 

Con L’inventasprite, ricordo che avrete immediatamente 
visualizzati anche i codici binari degli sprite di qualsiasi 
dimensione e ciò può tornarvi utile proprio in questa oc¬ 
casione. 

E comunque chiaro che il miglior sfruttamento del presen¬ 
te programma si ha completando le fattezze del corpo ed 
in questo caso non è affatto consigliabile una costruzione 
di sprite ma una celere e facile composizione in DRAW. 
In seguito completato il personaggio potrete utilizzarlo 
come narratore od interlocutore nei vostri programmi o 
addirittura come investigatore in una vicenda «gialla» di 
vostra ideazione, a voi la scelta. 

I Segreti dell'Immagine 

Per costruire un’immagine al computer esistono una serie 
di regole che nel disegno manuale non avrebbero ragione 
di esistere, prima di queste regole è il preventivo allunga¬ 
mento delle figure, que¬ 

sto perché, specie con i televisori domestici, le figure ven¬ 
gono maledettamente schiacciate rispetto alla loro impo¬ 
stazione originale. 
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Avrete notato intatti nei disegni riportati in questo artico¬ 
lo quanto il viso del personaggio esca dai canoni classici 
di un normale disegno, al contrario, sul video, tutto appa¬ 
rirà estremamente lineare e conforme alle leggi base 
dell’anatomia umana. 

Per chi posssiede un monitor, invece, queste differenze di 
immagine saranno sempre più lievi quanto più la risolu¬ 
zione del video sarà AP alta fedeltà, ciononostante uno 
schiacciamento benché minimo risulterà anche dagli 
schermi professionali. 

Lo so, non è certo agevole disegnare pensando già ad «al¬ 
lungare», ma è bene che lo si sappia per non ritrovarsi un 
disegno deturpato a mò di mongolfiera. Altro trucco, spe¬ 
cie per i possessori di MSX 1, è quello di disporre diversi 
personaggi disegnati a sprite su diverse coordinate di ri¬ 
ga, causa la nota limitazione di un certo numero di sprite 
sulla stessa. 

Le soluzioni possono essere diverse: un personaggio alto 
ed uno basso; adulto ed un bambino; un soggetto in piedi 
ed uno seduto o ancora due soggetti su diversi piani di 
prospettiva. 

Per alcuni personaggi poi potremmo incorrere nel medesi¬ 
mo problema di accumulo di riga degli sprite avendo im¬ 
piantato una figura carica di particolari e di diverse colo¬ 
razioni, in questo caso ricordiamoci sempre di stare in pa¬ 
gina grafica e di usufruire, per il completamento del per¬ 
sonaggio, di tutte le funzioni grafiche che ultimeranno gli 
elementi mancanti del disegno. Ma non dimentichiamoci 
dei caratteri alfanumerici, difatti se, oltre alla sovrabbon¬ 
danza degli sprite, si dovesse presentare anche la dura 
legge dei due colori per gli otto punti di riga, ricordate di 
farne uso stampandoli in modo GRP, ciò vi risolverà molti 
problemi. 

Gli Manca Solo la Parola! 

A chi? Ma al nostro personaggio animato! Sarebbe 
bello sentirlo parlare veramente, vero? 

E invece lo farà, e proprio con la vostra voce! 

Non potete immaginare quanto sia semplice.ricordate 

di aver letto nel manuale MSX di certe istruzioni chiama¬ 
te: MOTOR ON e MOTOR OFF, eccola là, vi si è accessa 
la lampadina, ma, si, certo, faremo uso proprio di questa 
istruzione abbinate al PLAY del registratore per far dire 
qualsiasi cosa al nostro «cartone animato». 

Ecco come dovrete operare: 

(A) Prendete una cassetta vergine e registrate qualsiasi 
frase vi viene in mente, più lunga sarà la registrazione e 
più vi divertirete. Quindi riavvolgete il nastro daccapo. 

(B) Inserite i soli spinotti MIC (di solito è rosso) e REMO¬ 
TE (di solito è nero) nei ripettivi alloggiamenti del registra¬ 
tore (non inserire lo spinotto del LINE, quello bianco). 

(C) Date il RUN al programma e subito dopo premete il ta¬ 
sto PLAY del registratore. 

A questo punto il personaggio mirerà come in playback le 
vostre parole quando verrà a trovarsi nella posizione di 
prospetto, mentre scatterà la posizione di profilo il regi¬ 
stratore verrà fermato per ricominciare ad emettere la vo¬ 
stra voce tornando al prospetto, divertente vero? 

Le istruzioni MOTOR ON e MOTOR OFF sono già inserite 
nel listato nelle linee 40;420 e 540, ma se non vorrete ope¬ 
rare questo esperimento tali linee non apporteranno il mi¬ 
nimo disturbo alla normale esecuzione del programma. 
Quando in seguito tenderete ad un uso più professionale 
di questo intervento vocale, il mio consiglio è di cronome¬ 
trare il tempo del parlato ammesso dal programma, per 
registrare frasi che non vengano mozzate in modo brusco, 
o in maniera ancora più elegante, trasformare in una va¬ 
riabile il limite del ciclo G della riga 450 (ora fissato a 
100), per contenere frasi di lunghezza diversa; la nuova va¬ 
riabile dovrebbe attingere quindi i suoi valori da una DA¬ 
TA studiata ad arte per i diversi interventi in voce. 

Infine costruendo un altro personaggio potrete far interve¬ 
nire in voce qualsiasi altra persona, organizzando delle 
vere e proprie storie animate, che spasso ragazzi! 


Le carte mappate 

La loro chiarezza d’immagine non presuppone ec¬ 
cessive spiegazioni, per altro già accennate prece¬ 
dentemente, diremo soltanto che i relativi codici binari le¬ 
gati ai pattern di ogni sprite sono completamente 
contenuti nel listato e facilmente ritrovabili con la lettura 
delle REM. 

Si intende per concludere che per quanto concerne le fi¬ 
gure B,C,D, ed E, queste vanno a mutare e ad assemblarsi 
nella mappa della figura A, acquistando come sfondo i 
medesimi sprite rosa della prima stampa di prospetto, 
mentre nel caso del profilo tutti i pattern vengono mutati 
per ovvia ragione. 


Collaborate alle animazioni! 

Se avete già pronta qualche particolare animazione 
facente parte di un vostro programma, estrapola¬ 
tela dal listato e forniteci le carte mappate (vanno bene 
anche sui quadernoni a quadretti), poi spedite mappe e li¬ 
stati (o cassette) a LIST, Rubrica «Animazioni compurizza- 
te», le ideazioni più meritevoli saranno pubblicate in que¬ 
ste pagine assieme al vostro nome. 

In questo modo la rubrica sarà quanto mai interattiva por¬ 
tando i suoi lettori ad essere protagonisti e non solo dei 
semplici spettatori. 

Ci contiamo ed aspettiamo le vostre proposte! 


Softeca delle animazioni 

In ogni puntata della presente rubrica farò cenno a 
quei particolari cartridge che hanno in sé spunti 
animativi di grande suggestione, in questo modo 
impareremo a riconoscere ciò che più ci interessa crean¬ 
dosi una valida ed estesa softeca delle animazioni; per 
imparare e trarne spunti interessanti. 

■ FATHOM (sistema Atari VCS, IntelIivision e Colecovi- 
sion) della IMAGIC 

Contiene delle parfette animazioni di un gabbiano in volo, 
il fantastico fluttuare di un delfino in una scenografia che 
all’inizio presenta anche un vulcano in piena attività erut¬ 
tiva, compito del delfino sarà di salvare una sirena 
anch’essa in movimento. 

■ POPEYE (Compatibilità Atari VCS) della Parker 
Stupenda grafica di Braccio di ferro ed Olivia con movi¬ 
menti dinamici e fluidi, anche Bruto e della compagnia 
ma leggermente più sacrificato dei due precedenti per la 
veste grafica. Popeye dovrà raccogliere molti cuoricini per 
conquistare l’amore di Olivia. 

■ BURGER TIME (Compatibilità sistema Intellivision) 
della Intellivision 

Un cuoco inseguito da Wurstel, uova sode e cetrioli prov¬ 
visti di veloci gambette dovrà preparare diversi hamburger 
farciti. Grafica e velocita di animazione fuori dal comune. 
Con questo abbiamo proprio finito, vi aspetto tutti per la 
prossima puntata, con grandi novità animate. 


10 'ANIMAZIONI SOMA 1 1 CHE 

20 '- 

30 ’DI O.CONTENTI -LIST- 

40 SCREEN 2,2:COLOR 1,4,4:KEYOFF:CLS:MO 
TOR OFF 
50 CLEAR 900 
60 DIM SS C25) 

70 L= 1 

80 'PROSPETTO FIGURA 
90 ’- 
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100 REM CAPELLI 

110 DATA 0,0,1,7,15,31,63,127,127,255,2 
55,255,255,255,120,64,0,248,254,255,255 
,255,255,255,255,255,255,239,199,135,3, 
1- 

120 REM CAPELLI 

130 DATA 0,0,224,240,248,248,252,252,25 
4,254,254,255,255,255,255,255,0,0,0,0,0 
,0,0, 0,0,0,0,0,0, 0,0,0 
140 REM VISO 

150 DATA 88,36,62,42,34,34,34,36,36,19, 
16, 18,23, 16, 19, 12,29,97,56, 16, 0, 0, 0,8, 1 
32,0,0, 136,196,36, 133,7 
160 REM CAPELLI 

170 DATA 254,254,254,254,127,127,63,63, 
50,32,32,0,0,0,0,0,0,0,0,0,0,0,128,0,0, 
0,0,0,0,0,0,0 
180 REM SPALLA 

190 DATA 0,0,0,0,0,0,0,64,128,16,152,18 
8,252,255,255,255,0,0,0,0,0,0,0,0,0,0,0 
,0,0,192,248,255 
200 REM CORPO 

210 DATA 5,2,3,0,0,1,1,1,3,3,3,3,3,7,7, 

7.11.159.255.127.255.255.255.255.255.25 

5.255.255.255.255.255.255 
220 REM CORPO 

230 DATA 255,255,255,255,255,255,255,25 

5.255.255.255.255.255.255.255.255.255.2 
.55,255,255,255,255,255,255,255,255,255, 

255.255.255.255.255 
240 REM COLORITO 

250 DATA 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0,0, 0, 0,7. 
63,0, 0, 0, 0, 0, 0, 0.0, 0, 0, 0, 16,56, 120,252, 
254 

260 REM COLORITO 

270 DATA 255,255,255,255,255,255,255,25 

5.255.127.127.127.127.127.127.63.252.25 

2.252.252.254.254.255.255.255.255.255.2 

55.255.255.255.255 
280 REM COLORITO 

290 DATA 7,3,3, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 
0,255,254,254,0,0, 0,0, 0,0, 0,0', 0,0,0,0,0 
300 FOR 1=0 TO 24 
310 SP$="” 

320 FOR N%=1 TO 32 
330 READ K% 

340 SP$=SP£+CHR$<K%) 

350 NEXT N% 

360 S$(I)=SP$ 

370 NEXT I 
380 GOTO 510 

390 REM STAMPA PROSPETTO 

400 REM - 

410 PUTSFRITEO, <100,100),10:PUTSPRITE1, 
<116, 100) , 10: PUTSPRITE2, <100, 116), 1: PUT 
SPRITE3, <116,116),10:PUTSPRITE4, <116,11 
6) , 1 :PUTSPRITE5, <100, 132), 1 :PUTSPRITE6, 
<116, 132) , 1:PUTSPRITE7, <100, 100),9:PUTS 
PRITE8, <102,116),9:PUTSPRITE9, <100,132) 
,9 

420 LINE <110, 110)-<120, 140), 10,BF: MOTO 
R ON 

430 REM STAMPA MOV. SOM. 

440 REM -- 

450 FOR G=1 TO 100 
460 X= I NT <5'*RND < 1 ) +20) 

470 SPRITES<2)=SS<X) 

480 FOR T=1 TO 50:NEXT T 
490 NEXT G 
500 L=2:M=10 

510 FORT= 0TO9:SPRITES <T)=S£<T+M): NEXT:O 

NLGOTO410,540 

520 REM STAMPA PROFILO 


530 REM - 

540 MOTOR OFF:PUT SPRITE3, <108,116),10: 
PUTSPRITEO, <100,100),10:PUTSPRITE1, <116 
,100),10:PUTSPRITE2, <100,116),1:PUTSPRI 
TE4, <116,116),1:PUTSPRITE5, <100,132),1: 
PUTSPRITE6, <116,132),1:PUTSPRITE7, <100, 
100),9:PUTSPRITE8, <101,116),9:PUTSPRITE 
9, <100,132),9 

550 L=1 : M= 0 :FOR G=1 TO 2000:NEXT G:GOTO 
510 

560 REM PROFILO 

570 REM - 

580 REM SPRITE 0 

590 DATA 0,0,3,15,31,31,63,63,127,127,2 
55,255,255,252,112,64,0,127,255,255,255 
,255,255,255,255,255,255,223,159,31,31, 
15 

600 REM SPRITE 1 

610 DATA 0,128,224,240,248,252,254,254, 
255,255,255,255,255,255,255,255,0, 0,0, 0 
,0,0,0,0,0,0,0,0, 0,0, 0.0 
620 REM SPRITE 2 

630 DATA 71,72,39,34,32,64,64,128,136,1 
12,32,32,62,1,28,4,128,0,0,128,0,0,0,12 
8,64,1,0,32,17,17,17,18 
640 REM SPRITE 3 

650 DATA 15,15,15,7,7,1,3,1,0,0,0,0,0,0 
,0,0,255,255,254,254,252,252,252,254,25 
5,255,126,112,64,0,0,0 
660 REM SPRITE 4 

670 DATA 0,0,0,0,0,0,0,0,0,0,0,12,60,12 

7.255.255, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 192 
,240,252 

680 REM SPRITE 5 

690 DATA 8,8,7,0.0,1,1,1,1,1,3,3,3,3,3, 

3.45.115.135.79.255.255.255.255.255.255 
,255,255,255,255,255,255 

700 REM SPRITE 6 

710 DATA 255,255,255.255.255.255,255,25 

5,255,255,255,255,255,255,255,255,255,2 

55.255.255.255.255.255.255.255.255.255, 

255.255.255.255.255 
720 REM COLORITO 
730 REM SPRITE 7 

740 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,3,15 
, 63,0, 0, 0,0,0,0,0, 0,0, 0,0,32,96,224,224 
, 240 

750 REM SPRITE 8 

760 DATA 255,255,127,127,127,255,255,25 
5,255,255,127,127,127,63,63,15,224,224, 

224.240.240.252.248.252.254.254.255.255 
,255,255,254,254 

770 REM SPRITE 9 

780 DATA 15,15,7,0,0,0,0,0,0,0,0,0,0,0, 
0,0,254,252,248, 112, 0,0,0,0,0,0,0,0, 0,0 
. 0, 0 

790 REM MOVIMENTI SOMATICI 

800 REM - 

810 DATA 88,36,62,42,34,34,34,36,36,35, 
16,19,20,20,19,8,60,65,56,16,0,0,0,4,13 
6, 0, 0, 144,72,72, 137, 11 

820 DATA 92,32,62,50,34,34.34,36,36,19, 
16,19,20,19,16,8,124,0,56,32,0,0,0,8,13 
2,0.32,16,208,17,17,19 

830 DATA 88,36,62,42,34,34,34,36,36,19. 
16, 19,20, 19, 16, 12,29,97,56, 16, 0,0, 0,8,1 
32,4,0,128,68,164,5,7 

840 DATA 88,36,62,38,34,34,34,36,36,19, 
16, 18,23, 19. 16, 12,56.65,56,8,0,0,0,8, 13 
2,0,0, 136, 196, 132,5,7 

850 DATA 88,36,62,42,34,34,34,36,36,19, 
16, 18,23, 16, 19, 12,29,97,56, 16, 0,0,0,8, 1 
32,0,0,136,196,36,133,7 
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n questo numero vi proponiamo una versione «Oli- 
vettiana» di un noto videogioco, che sicuramente 
molti di voi conosceranno. 

Le regole di gioco sono molto semplici: vi trovate con la 
vostra astronave in una tempesta di asteroidi. La sua sal¬ 
vezza dipende solo dalla velocità dei vostri riflessi. 

Potete muovere la navetta a destra o a sinistra per evitare 
gli sciami di asteroidi che provengono dal basso dello 
schermo. Ad ogni collisione con questi ultimi, al numero 
stampato sulla nave verrà sottratta una unità, fino a che 
non assumerà il valore zero, il che comporterà la distru¬ 
zione dell'astronave. 

Oltre alla fuga, vi resta anche un’altra alternativa. Infatti 
disponete di una certa quantità di energia, che vi permet¬ 
terà di distruggere gli asteroidi nelle immediate vicinanze 
dell’astronave. Questo schermo difensivo può essere atti¬ 
vato fino a cinque volte, dopodiché l’energia si esaurirà. Il 
punteggio cresce col passare del tempo di una unità per 
volta. Ogni 200 punti avrete diritto ad un «bonus» che, ol¬ 
tre ad aumentare di due unità il numero di «vite» sulla na¬ 
ve, ripristinerà la riserva di energia. 

Il programma è concepito per l’uso tramite la tastiera. I 
movimenti a destra e a sinistra corrispondono rispettiva¬ 
mente ai tasti “Q" e “W”, mentre l’attivazione dello scher¬ 
mo si effettua con la barra spaziatrice. Se possedete un 
Joystick, potete agevolmente modificare il programma per 
adattarlo a questo tipo di periferica eliminando la linea 
130 e modificando le 140 e 150 come si vede dalla fig 1. 
Una nota per i pigri: le linee dalla 1280 in poi servono solo 
per visualizzare un titolo di presentazione. Se quindi non 
volete affaticarvi a copiare tutti i numeri nelle linee DATA, 


potete evitare di copiare le suddette linee. Ricordate sol¬ 
tanto, in questo caso, di cancellare l’istruzione “GOSUB 
1280” alla linea 30. Il programma funziona egregiamente 
anche senza titolo. 

Un ultimo consiglio per coloro che si vorranno cimentare 
nelle modifiche al listato: non si possono alterare i colori 
di stampa ed i caratteri grafici senza modificare anche gli 
algoritmi di controllo, poiché abbiamo usato l’istruzione 
POINT il cui valore dipende dai caratteri stampati e dai lo¬ 
ro colori. I caratteri possono tuttavia essere ridefiniti, a 
condizione che il quarto bit della settima linea (per ogni 
carattere) sia settato ad uno. 



LIST 11/87 


47 







LIST 


2 


LIST 


3 


60 LOCATE 8,16,0:FRINT "Press a key to p 
1ay.":GOSUB 1000 
70 LOCATE 8,16,0:FRINT " 

GOSUB 1000 

80 IF INKEY$<>"" THEN EXIT 
90 LOOP 

100 REM ** MAIN LOOP ** 

110 CLS:ATTRB 0,0:LOCATE 17,0,0:PRINT "E 
NERGV : " ;F7.-1 
120 DO 

130 KY*=INKEY* 

140 L7.=L7.- <KY$="W" AND L7.C37) + <KY$="G!" A 
ND L7. >0) 

150 IF KY*=" " THEN F*/.=F*/.-l : IF F7.>0 THE 
N LOCATE L'/., 10,0: COLOR 3:PRINT GR*<15>;G 
R* ( 16) ;GR*( 17) ;: CONSOLE 0: LOCATE 24,0,0: 
PRINT F7.-1 ;: CONSOLE 1 

160 IF POINT ( 8 * (L7.+2) +3, 86 ) =6 OR POINT(B 
*L7.+3,86) =6 THEN PLAY"L401DODODODO" : P*/.= 
P7.-1 

170 IF POI NT ( 8 * (L7.+ 1 ) +3,86) =6 THEN PLAY 
" L40 1 FA#FA#FA#SOSOSO " : P7.=P7.-2 
180 IF P7.C1 THEN EXIT 

190 CONSOLE 0 : IF INT ( (T7./200) )-*200=T7. AN 
D T7.>0 THEN LOCATE 2,0,0: PRINT "BONUS !! 

" : PLAY " 02L5D0RES0D0RES0D0RES0 " : F7.=5 : P7.= 
P7.+ (2 AND P7.<5) : LOCATE 2,0,0:PRINT " 

": LOCATE 24,0,0: PRINT F7.-1; 

200 COLOR 7:LOCATE 28,0:PRINT "SCORE:";T 
7.: CONSOLE 1 

210 LOCATE LI 7., 9,0: PRINT " " ; : LOCATE 3 

9,24,0:PRINT 

220 LOCATE L7., 9,0: COLOR 1,0: PRINT GR*(1B 
) ; : COLOR 0,1: PRINT MIDS < STR* (P7.) , 2,1 ) ; : C 
OLOR 1,0: PRINT GR* (19) ; : T7.=T7.+ 1 : L17.=L7. 
230 LOCATE RND*38,24,0:COLOR 6,0:PRINT G 
R* <RND*1 1 );: LOCATE RND*38,24,0: PRINT GR* 

(RND*11); 

240 LOOP:LOCATE 28,0:PRINT " 

250 REM ** ESPLOSIONE ** 

260 FOR N=1 TO 3 

270 LOCATE L 17., 8 ,0 : COLOR 5: PRINT " " ; : 

LOCATE LI7., 9,0: PRINT GR* ( 12) : LOCATE LI7., 
10,0:PRINT " "5 

280 FOR 1=0 TO 6 : PLAY"LI05SISISI": NEXT I 
290 LOCATE L. 17., 8 ,0: COLOR 3: PRINT GR*<14) 
;GR*(16>;GR*(20); 

300 LOCATE LI 7., 9,0: PRINT GR$(13>;" " ; GR* 
(13);: LOCATE L17., 10,0: PRINT GR$<15);GR*< 
16);GR*(17)? 

310 FOR 1=0 TO 6:PLAY"L104RERERE":NEXT I 
320 NEXT N 

330 FOR N =8 TO 10: LOCATE L17., N7., 0: PRINT 
" "; :NEXT N 

340 ATTRB 1,0: COLOR 9: LOCATE 8 -( 1 AND T7. 
>99) ,20: PRINT " Score:";TX 
350 LOCATE 6,23: COLOR 15: ATTRB 0,1-.PRINT 
"PRESS A KEY TO PLAY AGAIN"; 

360 KY*=INPUT*(1):ATTRB 0,0:RUN 
1000 REM *** SUBROUTINES *** 

1010 REM 

1020 REM ** PAUSA ** 

1030 FOR PF-1 TO 150:NEXT PP 
1040 RETURN 

1050 REM ** CARATTERI GRAFICI ** 

1060 DEFGR* (.0) =62,33,255,129,129,65,53,2 
6 


1070 DEFGR*(1)=112,148,138,65,129,129,94 
,32 

1080 DEFGR*(2)=0,0,24,36,36,56,16,0 
1090 DEFGR*(3)=0,0,48,40,48,32,16,0 
1100 DEFGR*(4)=0,24,40,40,16,0,16,0 
1110 DEFGR*(5)=112,136,136,68,40,48,16,0 
1120 DEFGR*(6)=0,0,0,56,44,16,16,0 
1130 DEFGR*(7)=0,0,30,18,34,84,23,0 
1140 DEFGR*(8)=94,177,130,228,34,65,82,3 
0 

1150 DEFGR*(9)=0,62,65,66,34,17,30,0 
1160 DEFGR*(10)=96,144,144,116,10,49,81, 
126 

1170 DEFGR*(11)=62,65,242,9,247,136,144, 
96 

1180 DEFGR*(12)=145,82,16,7,244,8,90,137 
1190 DEFGR*(13)=100,24,198,0,222,0,24,10 

2 

1200 DEFGR*(14)=0,4,34,18,1,68,50,9 
1210 DEFGR* ( 15) =9,50,68,1 , 18,34,20,0 
1220 DEFGRS(16)=0,8,170,42,73,65,153,137 
1230 DEFGR*(17)=144,76,34,128,72,68,48,0 
1240 DEFGR*(18)=0,3,15,15,120,200,255,56 
1250 DEFGR*(19)=0,192,240,240,30,19,255, 
28 

1260 DEFGR*(20)=0,32,68,72,128,36,92,144 

1270 RETURN 

1280 REM ** TITOLO ** 

1290 RESTORE 1360 
1300 DO 

1310 READ XP7.,YP7.:IF XP7.=255 THEN COLOR, 
0:EXIT 

1320 LOCATE XP7.+1 , YP7.+1,0: COLOR ,4: PRINT 

Il II 

1330 LOCATE XP7., YP7., 0 : COLOR ,2: PRINT " " 
1340 LOOP 
1350 RETURN 

1360 DATA 0,9,1,9,1,8,1,7,1,6,1,5,2,6,3, 
6,1,4,1,3,1,2,2,2,3,2,4,2,4,3,4,4,4,5,4, 
6,4,7,4,8,4,9,4,10,5,10,6,10,7,10,8,10,9 
,10,10,10,11,10,12,10,13,10,14,10,15,10, 
16,10,17,10,18,10,19,10,20,10,21,10,22,1 
0,23,10,24,10,25,10,26,10,27,10,28,10 
1370 DATA 29,10,30,10,31,10,32,10,33,10, 
34,10,35,10 

1380 DATA 9,4,8,4,7,4,6,4,6,5,6,6,7,6,8, 

6.9.6.9.7.9.8.8.8.7.8.6.8 

1390 DATA 11,4,12,4,13,4,14,4,12,5,12,6, 

12.7.12.8.13.8 

1400 DATA 19,4,18,4,17,4,16,4,16,5,16,6, 

16,7,16,8,17,8,18,8,19,8,17,6 

1410 DATA 21,8,21,7,21,6,21,5,21,4,22,4, 

23.4.24.4.24.5.24.6.23.6.22.6.23.7.24.8 
1420 DATA 26,8,26,7,26,6,26,5,26,4,27,4, 

28.4.29.4.29.5.29.6.29.7.29.8.28.8.27.8 
1430 DATA 31,4,31,5,31,6,31,7,31,8,31,2 
1440 DATA 33,8,33,7,33,6,33,5,33,4,34,4, 
35,4,36,5,36,6,36,7,35,8,34,8,255,255 


Per giocare con joystick sostituire le seguenti righe 

140 L7.=L'/.- (STICK (0) =3 AND L7.<37) + (STICK ( 
0 ) =7 AND L7.>0) 

150 IF STRIG (0) =— 1 THEN F7.=F7.-1 : IF F7.>0 
THEN LOCATE L7., 1 0,0: COLOR 3: PRINT GR* ( 1 
5);GR*(16);GR*(17); : CONSOLE 0:LOCATE 24, 
0,0: PRINT F7.-1 ;: CONSOLE 1 
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PROGRAMMA 


di Osvaldo Contenti 


MSX 



D I listato è una copia pressoché integrale del bel 
programma «Totocalcio facile», realizzato per lo 
SHARP MZ 700 dall’amico e collega Leandro Di 
Bari, (agli SHARPisti ricordo che tale programma trovasi 
sul n. 10 di LIST del 1986). 

C’è da dire che Di Bari, dopo quella pubblicazione, è stato 
sorpreso alla guida di una Ferrari «testa rossa», ma egli 
nega recisamente una vincita al Totocalcio, asserendo di 
averla vinta ad una TOMBOLA svoltasi a Castiglione della 
Pescaia! Dobbiamo credergli? Direi che giocare il suo SI¬ 
STEMA non sarebbe una cattiva idea. 

La traduzione del programma nel BASIC MSX ha teso a 
mantenere intatti i passi algoritmici già impostati, operan¬ 
do, alla occorenza, solo delle modifiche di sintassi. 

Nella fattispecie, il programma propone di digitare l’elen¬ 
co delle partite inserite nella schedina e al loro fianco, 
sempre, l'indicazione delle previsione del risultato, inqua¬ 
drabile in una fissa, in una doppia o in una tripla. Gli 
esempi riprodotti su schermo non dovrebbero dare adito 
ad alcuna incertezza al riguardo. 

In un secondo tempo vi verrà chiesto di scegliere tra quat¬ 
tro tipi di riduzioni di sistema (riduzioni: O, 1, 2, 3), tali ri¬ 
duzioni avranno il seguente significato: 

Riduzione O = Sviluppo intearaie del sistema. 

Riduzione 1-2 = Livelli crescenti di riduzione statistica in 
base al numero dei seani. 

Riduzione 3 = Livello di riduzione a correzione d'errore. 
Inoltre nel corso del programma, dopo la stampa delle co¬ 
lonne «trediciste», vi verrà data possibilità o cambiare il 
sistema già inserito o di impostare una riduzione diversa, 
non dimenticando di fornirvi il totale dei «marenghi» da 
sborsare al botteghino. 


STRUTTURA DEL PROGRAMMA 

40-90 

esempio di input del sistema e pausa 

100-120 

dimensionamento matrici 

130-180 

chiamate a sottoprogrammi 

190-230 

possibilità di riduzione a scelta 

280-810 

sviluppo sistema 

820-890 

riduzione colonne 

930-1120 

output video 

1170 

possibilità ulteriori riduzioni 

1190 

ulteriore cambio di sistema 

1360 

fine programma 
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150 GOSUB 1850 
160 GOSUB 1940 
170 PRINT ”” 

180 PRINT "Il programma permette lo svi 
luppo integrale (livello di riduzione 0 
) ; due livelli crescenti di riduzione st 
atistica in base al numero dei segni <1 
ivello 1 e 2) e un livello di riduzione 
a correzione d’errore (livello 3).”:PR 
I NT 

190 INPUT ”Quale livello scegli ? ”;LIV 

200 IF LIV>3 THENGOTO 190 

210 IF LIV=0 THENGOTO 240 

220 IF LIV=3 THEN INPUT "Digita il nume 

ro massimo di varianti al quale vuoi ri 

durre : ";MX 

230 ON LIV GOSUB 1510,1550,1550 
240 PRINT"" 

250 REM - 

260 REM Sviluppo sistema 

270 REM - 

280 L=-1 
290 FORA= 0TO2 
300 FORB=0TO2 
310 FOROO.T02 
320 FORD=0TO2 
330 FORE=0TO2 
340 FORF=0TO2 
350 FORG=0TO2 
360 FORH=0TO2 
370 FORM=0TO2 
380 FORN=0TO2 
390 FORP=OT02 
400 FORQ=0TO2 
410 FORR=0TO2 
420 L=L+1 

430 IF SCO,A)<>0 THENGOTO 450 
440 A=2:L=L-1:GOTO 1120 
450 SV(0,L)=S(0,A) 

460 IF SCI,B)<>0 THENGOTO 480 
470 B=2:L=L-1:GOTO 1110 
480 SV(1,L)=S(1,B) 

490 IF S(2,C)<>0 THENGOTO 510 

500 C=2:L=L-1:GOTO 1100 

510 SV (2 , L) =S (2,0 

520 IF S(3,D> <>0 THENGOTO 540 

530 D=2:L=L-1:GOTO 1090 

540 SV(3,L)=S(3,D) 

550 IF S(4,E)<>0 THENGOTO 570 
560 E=2:L=L-1:GOTO 1080 
570 SV(4,L)=S(4,E) 

580 IF S(5,F)<>0 THENGOTO 600 
590 F=2:L=L-1: GOTO 1070 
600 SV(5,L)=S(5,F) 

610 IF S(6,G)<>0 THENGOTO 630 
620 G=2:L=L-1:GOTO 1060 
630 SV(6,L)=S(6,G) 

640 IF S(7,H)<>0 THENGOTO 660 
650 H=2:L=L-1:GOTO 1050 
660 SV(7,L)=S(7,H) 

670 IF S(8,M)<>0 THENGOTO 690 
680 M=2:L=L-1:GOTO 1040 
690 SV(8,L)=S(8,M) 

700 IF S(9,N)<>0 THENGOTO 720 
710 N=2:L=L-1:GOTO 1030 
720 SV(9,L)=S(9,N) 

730 IF S(10,P)<>0 THENGOTO 750 
740 P=2:L=L-1:GOTO 1020 


750 SV(10,L)=S(10,P) 

760 IF S(ll,Q)<>0 THENGOTO 780 
770 Q=2:L=L-1:GOTO 1010 
780 SV(11,L)=S(11, Q) 

790 IF S(12,R)<>0 THENGOTO 810 
800 R=2:L=L-1:GOTO 1000 
810 SV(12,L)=S(12,R) 

820 IF LIV=0 THEN GOTO 930 
830 GOSUB 1400 

840 IF (N1<U1)+(N1>U2) THEN L=L-l:GOTO 
1000 

850 IF (N2<U3)+(N2>U4) THEN L=L-l:GOTO 
1000 

860 IF (N3<U5)+(N3>U6) THEN L=L-l:GOTO 


1000 


870 

IF LIV<>3 GOTO 930 


880 

GOSUB 1590 


890 

IF VAR>MX THEN L=L-l:GOTO 1000 

900 

REM - 


910 

REM Output Video 


920 

REM - 


930 

FOR Z=0 TO 12 


940 

IF SV(Z,L)=3 GOTO 970 


950 

PRINT SV(Z,L); 


960 

GOTO 980 


970 

PRINT " X"; 


980 

NEXT Z 


990 

PRINT SPC(5);L+l 


1000 

NEXT R 


1010 

NEXT Q 


1020 

NEXT P 


1030 

NEXT N 


1040 

NEXT M 


1050 

NEXT H 


1060 

NEXT G 


1070 

NEXT F 


1080 

NEXT E 


1090 

NEXT D 


1100 

NEXT C 


1110 

NEXT B 


1120 

NEXT A 


1130 

PRINT"" 


1140 

IF LIV=0 GOTO 1170 


1150 

NC=L+1 


1160 

K=l:GOSUB 1940 


1170 

INPUT"Vuoi ridurre a qualche 

altro 

livello ? (SI/NO) ”;RIDS 


1180 

IF RID$="SI" THENGOTO 190 


1190 

INPUT "Vuoi cambiare il sistema ? 

(SI/NQ) ";CB$: IF CB$="SI" THENGOTO 

1210 

1200 

GOTO 1360 


1210 

CLS:PRINT "►": FORI = 0TO12 


1220 

PRINTUSING "##"; I + 1 ; 


1230 

PRINT " ; SCS(I) 


1240 

LOCATE 27,l+I;INPUT PRS 


1250 

P1S=LEFTS(PRS,1) 


1260 

IF P1S="X" THEN S(I,0)=3:GOTO 

1280 

1270 

S(I,0)=VAL(P1S) 


1280 

P2S=MIDS(PRS,3,1) 


1290 

IF P2S="X" THEN S(I, 1)=3 : GOTO 

1310 

1300 

S(I , 1)=VAL(P2S) 


1310 

P3S = RIGHTS(PRS, 1) 


1320 

IF P3S="X" THEN S ( I ,2)=3 : GOTO 

1340 

1330 

S(I ,2)=VAL(P3S) 


1340 

NEXT I 


1350 

GOTO 140 


1360 

CLS:END 


1370 

REM - 


► ► ► 
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TOTOSISTEMA 


MSX 


LIST 


1380 REM Sattoprogramioa riduzione 

1390 REM - 

1400 N1=0:N2 = 0:N3 = 0 
1410 FOR W=0 TO 12 

1420 ON SV(W,L) GOTO 1430,1440,1450 

1430 N1 = N1 + 1: GOTO 1460 

1440 N2 = N2+1: GOTO 1460 

1450 N3=N3+1 

1460 NEXT V 

1470 RETURN 

1480 REM - 

1490 REM Dati per le riduzioni 

1500 REM - 

1510 Ul=2:U2=9 
1520 U3=0:U4=4 
1530 U5=1:U6=9 
1540 RETURN 
1550 Ul=4:U2=8 
1560 U3=0:U4=3 
1570 U5=3:U6=8 
1580 RETURN 
1590 VAR=0 
1600 FOR T=0 TO 12 

1610 IF SV (T, L) OS (T, 0) THEN VAR=VAR+1 
1620 NEXT T 
1630 RETURN 

1640 REM - 

1650 REM Sottoprogramma input sist. 

1660 REM - 

1670 PRINT ”► ”:FORI = 0TO12 
1680 PRINTUSING ”##";I+1; 

1690 INPUT ” - »”: SCS(I) 

1700 LOCATE 27,6+1:INPUT PR$ 


LIST 5 


1710 P1$=LEFT$<PR$,1) 

1720 IF P1$=”X” THEN S<I,0)=3 : GOTO 1280 
1730 S<I,0)=VAL(Pl$> 

1740 P2$ = MIDS <PR$,3,1) 

1750 IF P2$=”X” THEN S<1, 1>=3 : GOTO 1310 
1760 SCI,1)=VALCP2$) 

1770 P3$=RIGHT$CPRS,1) 

1780 IF P3$=”X” THEN S(I,2)=3 : GOTO 1340 
1790 SCI,2)=VAL(P3S) 

1800 NEXT I 
1810 RETURN 

1820 REM - 

1830 REM Sottoprogranuna spesa 

1840 REM - 

1850 TR=0:DT=0 

1860 FOR T=0 TO 12 

1870 IF S<T, 2)00 THEN TR=TR+1 

1880 NEXT T 

1890 FOR U=0 TO 12 

1900 IF SCU, 1)00 THEN DT=DT + 1 

1910 DP=ABS(DT-TR) 

1920 NC= C3''TR^2''DP) 

1930 RETURN 

1940 PRINT ”11 sistema è di”;NC;” colon 
ne” 

1950 PRINT "La spesa totale è di”;NC*50 
0 ; "lire." 

1960 IF K=1 GOTO 1980 

1970 INPUT "Quante persone concorrono ? 
" ; PER 

1980 PRINT "La spesa prò capite è di”;N 
C*500/PER ;” lire.” 

1990 RETURN 



SILICON MOVIOLA 
COMMODORE 64 


d> 

© 


La cartuccia MOVIOLA è dotata di: 

1 Interruttore di accensione della cartuccia 

2 Spia luminosa di acceso-spento 

3 Pulsante di RESET 

4 Commutatore per fermare l’immagine 


(Posizione di STOP) 

5 Manopola per aumentare o diminuire la 
velocità dei movimenti 

6 Connettore per bus-espansione del 
computer 


Il tasto di RESET è attivo anche se 
la cartuccia MOVIOLA è spenta. 

Durante il caricamento dei programmi si consiglia di 
tenere spenta la cartuccia MOVIOLA onde evitare di¬ 
sturbi al programma In caricamento 



-SILICON-- 



MOVIOLA 


© 


Per averlo subito, 
inviare L. 35.000 
spese postali incluse 
a 1/2 vaglia postale 

a ELETTRONICA 
RUBEO 

P.zza Bellini, 2 
Grottaferrata 
00046 (Roma) 
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SPAZIO POCKET 

di Marco Marzano & Maurizio Erbani 


SHARP 

PC-1403 Pocket Computer 



IL POCKET COMPUTER 
CON LE FUNZIONI DI CALCOLO 

DELLE MATRICI 


Ecco un pocket veramente speciale 
per le funzioni scientifiche ed un 
elevato rapporto qualità-prezzo: 
il PC-1403 della SHARP 



orredato di un astuccio rigido, il PC-1403 della 
SHARP, si presenta come uno dei tanti pocket 
prodotti dalla casa giapponese. Le sue dimensioni 
(170x72x9,5 mm. ) sono però piuttosto contenute, se 
messe a confronto con la potente memoria utilizzabile dal 
programma (quasi 7 Kb), e con l’incredibile quantità di 
funzioni scientifiche di cui dispone. 

La tastiera può essere suddivisa in tre parti ben distinte. 
Quella alfabetica è composta da 35 tasti, 18 dei quali 
utilizzabili per richiamare istruzioni BASIC predefinite; il 
tastierino numerico, di colore più scuro, è formato da 21 
tasti (ognuno dei quali ha due funzioni), e costituisce la 
calcolatrice vera e propria (utilizzabile separatamente dal 
PC); vi è poi la sezione scientifica del pocket, vale a dire 
17 tasti separati, con ciascuno dei quali possono essere 
utilizzate più funzioni. Infine, insieme alla parte 
alfabetica, vi sono i tasti per le operazioni con le matrici e 
il selezionatore per il modo di utilizzo del poket (si può 
scegliere, cioè, come già accennato, se utilizzarlo come 
semplice calcolatrice o come PC vero e proprio; in 
entrambi i casi potranno essere utilizzate le innumerevoli 
funzioni scientifiche di cui il PC-1403 è dotato). 

Il display, a cristalli liquidi, è di misura standard (circa 6 
cm.), ma la particolare composizione dei caratteri (a 
matrice di punti 7x5 rende possibile la visualizzazione di 
ben 24 di questi). 

Come già accennato più volte, caratteristica peculiare di 
questo pocket è la possibilità di usarlo anche come una 
potente calcolatrice scientifica. Ma ciò non è tutto; grazie 
alla sua memoria interattiva i risultati dei calcoli ottenuti 
con il modo «CAL» possono essere conservati ed immessi 
nei programmi BASIC; e, a sua volta, il dispositivo di 
risposta diretta vi consente di fare nuovi calcoli anche 
durante la fase di programmazione in modo «BASIC». 


Il «dialetto» BASIC di cui dispone il PC-1403 è abbastanza 
completo (è in vero ottimo, se si pensa che nel palmo 
della mano abbiamo già a disposizione un incredibile 
numero di funzioni scientifiche). Esso presenta tutte le 
istruzioni standard degli altri PC, ed anche qualcuna un 
po’ particolare, come ON...GOTO e ON...GOSUB, PRIN 
USING e AREAD. Importante è però segnalare la presenza 
di due istruzioni veramente rare da trovare in un pocket 
computer, come RENUM e DELETE (per la renumerazione 
e la eliminazione delle linee di programma), che 
semplificano notevolmente l’editing dei programmi, 
eliminando molti passaggi richiesti anche dai sistemi più 
complessi di qualche home computer. Da menzionare 
infine la possibilità di utilizzare, col tasto SHIFT, i 18 tasti 
con le istruzioni predefinite (con un notevole risparmio di 
tempo in fase di programmazione, oltre che una minore 
possibilità di errori), e i 18 indirizzi di programmi 
predefiniti (utilizzabili con il tasto DEF e una mascherina 
in dotazione) con cui potrete salvare delle routine per 
richiamarle soltanto quando vi serviranno. 

Abbiamo già accennato all’enorme numero di funzioni 
scientifiche a disposizione dell’utente del PC-1403, ma 
molto più eloquenti di qualsiasi definizione sono i dati 
che seguono. Questo pocket è dotato di 96 funzioni 
scientifiche preprogrammate (di cui vi ricordiamo quelle 
statistiche, logaritmiche, di conversione angolare, 
trigonometriche inverse ecc.), di 15 livelli di parentesi e di 
8 livelli di operazioni in sospeso. Ma la caratteristica 
senz’altro più interessante e veramente propria di questo 
computer è la possibilità di utilizzare un porgramma 
incorporato per il calcolo delle matrici (utilissimo per 
risolvere le equazioni normalmente presenti nei problemi 
scientifici e di ingegneria). Per il suddetto calcolo, oltre 
alle quattro operazioni, il PC-1403 mette a disposizione le 
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F SCHEDA TECNICA 

Modello 

: SHARP PC-1403 

Dimensioni 

:170x72x9.5 mm. 

Peso 

: 150 gr. 

Tastiera 

:87 tasti tutti con 
doppia funzione 

Visore 

:A cristalli liquidi. 24 
caratteri 

Memoria RAM 
Temperatura di 

:6,878 Kb 

funzionamento 

:0 °C-40 °C 

Consumo 

:0,03 W 

Alimentazione 

:2 pile al litio tipo 

CR 2032 


■ ■ ■ OQC 3 Q 3 

^ —— m ^ l j-caoo 

• esonero •••**. 

0000000030 ' ■ ■ ■ ■ ■ 

oca oocaoc : ■ ■■■’■ 

lOOODDOC-. ■■■■0 


PC-1403 



CE-129P 

(Stampante termica 
da 24 car./riga con 
l/F per registratore. 
Collegamento a innesto) 


CE-126P 

(Stampante termica 
da 24 car./riga con 
l/F per registratore. 
Cotlegamento a cavo) 


CE-124 

(l/F per registratore) 


CE-152 

/RD-720H 

(Registratore a cassette) 


funzioni di inversione, di trasposizione, di determinante a 
scalare, oltre a fornirvi utili suggerimenti per l’immisisone 
dei dati. 

Il potenziale applicativo del PC-1403 è ampliato dalla 
possibilità di espansione con periferiche quali la SHARP 
CE-129 P (stampante termica da 24 car./riga con 
possibilità di collegamento ad innesto con registratore), 
la SHARP CE-126 P (stampante termica da 24 car./riga 
con possibilità di collegamento via cavo con registratore), 
e lo SHARP CE-152 P, registratore a cassette collegabili 
al PC anche senza la stampante (grazie all’adattatore 
SHARP CE-124). 

Il giudizio finale sul PC-1403 non può che essere positivo. 
Grande versatilità, potenza e convenienza fanno infatti di 
questo pocket della SHARP uno strumento insostituibile 
per lo studente, il manager ed il professionista. 

Intergrali definiti risolti 
con la regola di Simpson 

Questo mese vi presentiamo un programma che 
risolve gli integrali definiti di qualsiasi tipo di 
funzione. 

Nel corso della storia della matematica sono stati 
elaborati numerosi metodi per la risoluzione di 
questo tipo di calcolo. 

Abbiamo scelto per il nostro programma quello che 
fa uso della formula di SIMPSON, che è uno dei più 
precisi. 

L’intervallo in cui va calcolato l’integrale viene 
diviso in un numero pari di sottointervalli; per 
ognuno di questi viene, quindi, calcolata l’area 
della superficie delimitata dal sottointervallo 
medesimo e dalla parabola che approssima in quel 
tratto la curva sommando, poi, in maniera 
particolare, queste aree, si ottiene il risultato 
cercato. 

Ciò precisato, veniamo ora a descrivere il modo di 
utilizzo del programma. La prima operazione da 
compiere è digitare la funzione integrandola alla 
riga 200, nella forma 200 F = funzione di X (es. 200 
F = X*LNX), sostituendo, così la riga che, a puro 
titolo di esempio, è già presente nel listato. 

Si può quindi lanciare il programma, con DEF A 
(oltre che con il solito RUN). VI verranno anzitutto 
richiesti gli estremi di integrazione; se l’estremo 
superiore dovesse essere, comunque, minore di 


...Per risolvere 
gli integrali definiti 

1 RE.fi ***************************** 

§ 2 REH * INTEGRALI DEFINITI * 

3 REM * DI fi. ERBANI E (1. NARRANO * 

^ 4 REM * @ 1987 * 

10 "A":CLEAR 

Q 20 INPUT EST RENO INF.?” ;A 
30 INPUT "ESTREMO SUP.?”;B 
40 IF B> =A THEN 60 

0 50 PRINT "ERRORE IN INPUT" :GOTD 20 
60 INPUT "DIUIS. CPARn?” ;E 
70 IF E<=0 THEN 50 

• 80 IF EOINT CE*2:*2 THEN 60 
90 D=0 :P=0:C=CB-AVE 

^ 100 X=A=GOSUB 200 :Q=F 

• 110 X=B:GOSUB 200:U=F 
120 FOR 1=1 TO CE-1*2) 

0 130 X=CA+I*C1:GOSUB 200:U=F 

140 IF I = INT C1/2 3*2 THEN LET P=P + U:GOTO 
160 

• 150 D=D+U 
160 NEXT I 

170 R=2*CB-A3/C3*E)*CCQ+Ln*2+P+2*D3 
180 PRINT "RISULTATO="=PRINT R 
190 END 

^ 200 F= FUNZIONE DI X 
W 210 RETURN 

quello inferiore, il computer segnalerà l’errore e la 
fase di INPUT ricomincerà. 

Dovrete, quindi immettere il numero di DIVISIONI, 
che dovrà essere un numero pari, per ottenere, così, 
il risultato voluto. 

Vi ricordiamo che maggiori saranno le divisioni e 
maggiore sarà la precisione di calcolo. 

La semplicità, peraltro ricercata, del listato del 
programma, rende possibile l’utilizzazione di questa 
su tutti i pocket della SHARP; l’unica avvertenza è 
per i possessori di un pocket privo dei tasti 
definibili: in questo caso, vista la mancanza della 
funzione DEF, il programma potrà essere lanciato 
con l’istruzione CLEAR:RUN 20. 
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PROGRAMMA 


MZ 700 


di Leandro Di Bari 



D ’analisi di un notevole numero di eventi diversi, 
reali o simulati, permette, in base alle reazioni o 
decisioni, di evidenziare la tendenza di fondo che 
caratterizza ogni individuo. Per questo scopo sono stati 
creati i test, i quali rappresentano una psicanalisi dome¬ 
stica non rigorosa ma ugualmente attendibile giacché so¬ 
no gli stessi psicologi ad esserne gli autori. 

I test sono essenzialmente di due tipi. Il primo e forse il 
più noto, grazie anche ad una maggiore diffusione, è il 
test a punteggio e consiste nel rispondere a domande che 
apparentemente non hanno attinenza con l’argomento 
trattato, ma che permettono, mediante l’analisi delle di¬ 
verse possibili risposte, di stimolare una soluzione incon¬ 
scia e non costruita come siamo spontaneamente portati 
a fare. Questo test ha essenzialmente lo scopo di eviden¬ 
ziare il carattere e quindi la tendenza ad esso associata. 


L’altro tipo è quello che potremmo definire «un simulatore 
di situazioni». Questo test è molto più trasparente del pri¬ 
mo e perciò più diretto. Si basa essenzialmente sull’anali¬ 
si di situazioni simulate riguardo alle quali vengono pro¬ 
posti due possibili comportamenti. Questi, spesso total¬ 
mente opposti, rappresentano reazioni limite verso le qua¬ 
li tendiamo di più. In questo caso, a differenza del prece¬ 
dente, non vi sarà un’analisi quantitativa delle risposte, 
bensì qualitativa nel senso che in base ad esse percorria¬ 
mo un cammino diverso che porta alla identificazione del¬ 
le tendenze. 

Il test che vi proponiamo nel programma è del secondo ti¬ 
po. A nostro avviso ha il vantaggio di non avere un percor¬ 
so obbligato e questo permetterà di ripetere il test a di¬ 
stanza di tempo e nel caso vi siano scelte diverse si 
avranno domande diverse. 


LIST 


Le sottolineature sono i caratteri grafici 

10 Riferimento CORRIERE DELLO SPORT 

20 : 7 del 23/5/1987 

30 

40 Uersione 1.4 del 3/7/1987 

50 

100 CLR: CONSOLE:CLS:PRINT:n$=”C0" 

110 PRINT” C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 
8 C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 8 " 

120 PRINT” C 8 C 8 C 8 C 8 C 8 C 8 C 8 L 8 C 8 C 6 C 8 C 8 C 8 L 
8 C 8 C 8 L 8 L 8 L 8 L 8 C3i8C3l8C8 C 8 C 8 C 8 C 8 C 8 " 

130 PRINT” C 8 C 8 C 8 C 8 C 8 -» C 8 L 8 ^ 8 C 8 C 8 C 8 C 8 C 8 C 
8 L 8 -» C 8 L 8 L 8 l 8 C 8 C 8 C 8 C 8 C 8 L 8 -» C 8 C 8 C 8 L 8 C 8 -> A” 
140 PRINT” .^9C8C8C3^3 C 8 C 8 C 8 C 8 C 8 C8C3C8C 
8 C 8 C8C3C8C8C8 C 8 C. 8 C 6 L 8 C 8 C3C8C8C8C8 " 

150 PRINT” C 8 C 8 L 8 C 8 C 8 38-8080808 C 8 C 8 C 8 C 
3L8 ,.3-308 C 8 C 8 C 8 C 8 C 8 C 8 C 6 C 8 C 8 C 8 ' 1 

160 PRINT" 4- 4- T 4- T 

4. " 

170 P0KE53494,96:POKE53500,95:POKE53506, 
95:P0KE53512,95:P0KE53518,95 
180 P0KE55542,240 :P0KE55548,240:P0KE5555 
4,240:POKE55560,240:P0KE55566,240 
190 PRINT” C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 8 C 


LIST 2 


3 L 8 L c : L 3 L 3 L 3 L0 LOLOLcLbuo -c wBCBloLB '* 

200 PRINT” -c--3 L 3 LB C 8 C 8 C 8 C 8 C 

333 i c~ l iLt'tcLc u3-8i. 3 -9-8 L8C8C8L3 l8 11 
210 PRINT” L3L8L3L3l8 -» L8C8q8L8CLI -» LoC8L3L 
3L3 Opi.bl3L3iB -> C8C8L3L8L8 C 8 C 8 C 8 C 8 C 8 -» B” 
220 PRINT” -3-3l.oL.3L3 -.BlblBlBLB lBOBOBl 
8 L 8 ,..Q o-3lp-3 3-3 CBCBCbCBCB " 

230 PRINT” ,.3-B .;volc - 8 C 8 C 8 C 8 C 8 0 3 L 8 l 8 - 
8 L3 l3L8C8l8L8 C 8 C 8 C 8 »— 8 C 8 C 8 C 8 C 8 l 8 C 8 '' 

240 PRINT” 4- 4. 4, 4- 

4- " 

250 POKE53740,96:P0KE53746,96:P0KE53752, 
96 

260 P0KE55788,240 :P0KE55794,240:POKE5580 
0,240 

270 PRINT” C 8 C 8 C 6 C 8 C 8 C 8 C 8 C 8 C 8 C 8 C_ 

808C.6CBL3 c o o .c - o 88 - 8 -Ò Le -8 ” 


280 PRINT" 

SHARP C8C808C8C8 

C8C3C8C8C8 C 

8 — 8 L 01 —B — 3 



C3-8C8C8L8 udodLc 

ud.tì" 

290 PRINT” 

C 8 C 8 L 8 C 8 C 8 

->l808C8C8C8->C 

803030808-» 

L3L3C3-8Cb-» -. 8 C 8 O 8 C 80 3-» C” 

300 PRINT” 

N2700 08C8L8C3C8 

-8C30803L8 C 

8 C 8 C&LfcC 8 

C 8 C 8 L 8 C 8 C 8 08C8C8C808" 


310 PRINT” r ■ r 88 -8 -3 -3 .o-r ,r 
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LIST 


- - - jSLg . ; . 3C8 ... 

320 PRINT" 

4. 

330 P0KE53998,95 :POKE54004,96 
340 POKE56046,240:POKE56052, 240 
350 PRINT" 


360 PRINT" vè^g 

LEANDRO -d ..cLc^.d " 
370 PRINT" ^d ^808 


_ ■ • • - : • r ^ 

II 

. d i : d w ;■ L 8 b y 


.8C8.:8C8l8-> D" 


380 PRINT" ■ 0608^8 -8 -8^ 8 l8 

DI BARI -8w8L.8^8-g" 

390 PRINT" 

400 F0R14T = 0T03000 :NEXTLIT 
410 COLOR,,7,2 :CLS 

420 PRINTTABC20r , E-8E3L8 .òfc3-8 .8c3u8E3 

A" - 

430 PRINT" Nappa di FDEEFPEDPD 

-ir Dcur . tUr D 


440 PRINTTABC203",8c3C8£3^8 .8E3C8 C8E3 
B" 

450 PRINT" cammino rOEtrOcc. 

r i_ r_ c. r LJ n_ " 


8t3^cc3o8E3o8c"C8E3 


J8E3 0" 


460 PRINTTABC203" 

C" 

470 PRINT' de I TEST 

LrtJcc " 

480 PRINTTABI20 3" _ 

500 CQNS3LE9,16,0,40:COLOR,,7,1:CLS 
510 PRINT"00B0 GIOCATE IN DIFESA 0 IN 
ATTACCO ?" 

520 PRIN~"000 Nella y i la quale lattica 
seguite per raggiungere gli obiettiui 
che ui siete prefissati?" 

530 PRINT' Rispondete alle domande del t 
est e ca- pinete se Siete Eriksson o Tr 
apattoni2" 

540 PRINT"@ <Premi un tasto per comìn 
c i are > " 

550 GETT$ : IFT$="' THEN550 

560 nusicns 

1000 CONSOLE:CURSOR20, 1 :PRINTC,03" " 

1010 C0NS0LE9, 16,0,40 :CLS 

1020 PRINT"0 Per avere successo bisogna 

essere :" 

1030 PRINT"@ 13 scettici" 

1040 PRINT"0 23 entusiasti" 

1050 GETR$:IFR$=""THEN1050 
1055 NUSICN$ 

1060 R~UAL C R$ 3:ONRGOTO3000,16000 

2000 CONSOLE : CURS0R22,3:PRINT[,03" " 

2010 C0NS0LE9,16,0,40-CLS 

2020 PRINT"0 Dagli amici sperate di esse 
re : " 

2030 PRI NT"0 


1 3 amat i " 


LIST 

4 

2040 

PRINT"© 23 stimolati" 


2050 

GETR$ : IFR$='"THEN2050 


2055 

NUS-I CN$ 


2060 

R~UAL CR$ 3 :ONRGOTO6000,4000 


3000 

CONSOLE:CURS0R22, 1 :PRINT[,03" 

«• 

3010 

C0NS0LE9, 16,0,40 :CLS 


3020 
• " 

PRINT"© Priu.legiate l'abb.gl 

i ameni 

O • 

3030 

PRINT"© 13 classico" 


3040 

PRINT "0 2 3 casua 1 " 


3050 

GETR$: IFR$ : "THEN3050 


3055 

NUSICN$ 


3060 

R=UAL C R$ 3 :ONRGOTO6000,2000 


4000 

CONSOLE:CURS0R22,5=PRINT[,01" 

» 

4010 

C0NS0LE9, 16,0,40 :CLS 


4020 

PRINT"@ Giocale in borsa?" 


4030 

PRINT"@ 13 ma, " 


4040 

PRINT"@ 23 qualche voita" 


4050 

GETR$ : IFR$= ' "THEN4050 


4055 

NUSICNS 


4060 

R=UALCR$3 :ONRGOTO6000, : 2000 


5000 

CONSOLE :CURSOR30,3 :PRI NT C , 03 " 

" 

5010 

C0NS0LE9, 16,0,40 :CLS 


5020 

PRINT"0 Festa con tanta gente 

che n 

1 on conosce- te.' 


5030 

PRINT"0 13 studiate l'ambiente" 

5040 

PRINT"0 23 cercate subito d 

i lega 

re " 



5050 

GETR$ : IFR$ 1 'HEN5050 


5055 

nusicns 


5060 

R--UAL C R$ 3 :ONRGOTO21000,8000 


6000 

CONSOLE :CURS0R24,3 -*PR I NT [ , 0 3 " 

" 

6010 

C0NS0LE9, 16,0,40 :CLS 


6020 

PRINT"ffi Uorreste semore i dono:" 

6030 

PRINT"0 13 della seren.ta'" 


6040 

PR1NT"0 23 del coraggio" 


6050 

GETR$:IFR$=""THEN6050 


6055 

NUSICN$ 


6060 

R=UALCR$3 :0NRG0T010000, 12008 


7000 

CONSOLE :CURS0R26,3:PRJNT[,03" 

il 

7010 

C0NS0LE9,16,0,40 ; CLS 


7020 

PRINT"0 Preferite la pubb1 ci 

ta' :" 

7030 

PRINT"0 13 ironica come 'Go 

1 i a ' " 

7040 

PR1NT"0 23 dolce come 'Bari 

1 la'" 

7050 

GETR* : IFR$~""THEN7050 


7055 

NUS1CN$ 


7060 

R=UALCR$3:0NRG0T011080,15000 


8000 

CONSOLE --CURSOR30,5 :PR I NT I , 0 3 " 

" 

8010 

C0NS0LE9,16,0,40 :CLS 


8020 

PRINT"© L'idea di cambiar lavoro:" 

8030 

PRINT"© 13 vi euforizza" 


8040 

PRINT"0 23 ui rende ansiosi 


8050 

GETR$ : IFR$=""THFN8050 


8055 

NUSICN$ 


8060 

R=UAL C R$ 3:0NRG0T014 000,22000 


9000 

CONSOLE :CURSOR30, 1 :PRI NT[,03" 

II 

9010 

C.0NS0LE9, 16,0,40:CLS 


9020 

PRINT"© Intraorendere un lavoro aut | 


►►► 
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onomo e' : " 

9030 PRINT’S 1) segno di coraggio" 

9040 PRINT'S 2) indice o. incoscienza" 

9050 GETRS : IFR$-' THEN9050 

9055 nusicn$ 

9060 R=UPLCR$3:ONRGOTO5000,20000 
10000 CONSOLE :CURS0R24, 1 :PRINT[ , 0]" 

10010 C0NS0LE9,16,0,40:CLS 

10020 PRINT'S La uostr-a squadra ideale h 

a : " 

10030 PRIN T "E 1) tre attaccanti" 

10040 PRINT'S 23 cinque difensori' 

10050 GETR$ : 1FR$-" THEN10050 
10055 MUSI CHS 

'0060 R=UP'_CR$3:ONRGOTO7000,13000 
'1000 CONSOLE:CURS0R26,5:PRiNT[,03' " 
11010 C0NS0LE9,I6,0,40:CLS 
11020 PRINT'S Temete di piu':" 

11030 PRINT'S 13 ia sconfitta" 

11040 PRINT"0 23 la noia" 

11050 GETR$:IFR$=""THEN11050 
1 1055 MUSICII* 

1 1060 R = UPL CR$ 3 :ONRGOTO! 5000, 18000 
12000 CONSOLE:CURS0R24,5 :PRINT[,0]" " 
12010 C0NS0LE9, 16,0,40 :CLS 
12020 PRINT'S Giocando alla roulette pun 
tate solo:" 

12030 PRINT"E 13 sui numeri' 

12040 PRINT"B 23 su! colore 

12050 GETR$:IFR$=" THEN12050 

12055 nusicns 

12060 R=UPLCR$ 3 :0NRG0T0ì 1000,2000 
13000 CONSOLE:CURS0R26,1:PRINT[,03" " 
13010 C0NS0LE9, 16,0,40 :CLS 
13020 PRINT"E P cosa non c'e rimedio?" 
13030 PRINT"E 13 alle stupidaggini" 

13040 PRINT"E 23 al le pazzie" 

13050 GETR$:IFR$ = " ' THEN13050 

13055 riusiCf1$ 

13060 R=UPLCR$3 :ONRGOTO7000, 15000 
14000 CONSOLE : CIJRSOR30, ? :PR I NT [ , 0 ] " " 
14010 C0NS0LE9, 16,0,40 :CLS 
14020 PRINT"E Un capo deve essere innanz 
itutto 

14030 PRINT"E 13 stimato" 

14040 PRINT"S 23 temuto" 

14050 GETR$: IFR$ = ""THEN14050 

14055 nusicn$ 

14060 R=UPLCR$3:ONRGOTO22000,23000 
15000 CONSOLE:CURS0R28,3:PRINTC,01" " 
15010 C0NS0LE9, 16,0,40 :CLS 
15020 PRINT"E E' megI io avere :" 

15030 PRINT"E 13 talento" 

15040 PRINT"B 23 successo" 

15050 GETRS:IFR$='"THEN15050 

15055 nusicns 

15060 R=UPLCR$3 :0NRG0T012000, 18000 
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16000 CONSOLE :CURSOR20,3:PRINT[,03" " 
16010 C0NS0LE9, 16,0,40 :CLS 
16020 PRINT"E neglo essere:" 

16030 PRINT"E 13 i primi in provincia" 
16040 PRINT"E 23 i secondi a Roma" 
16050 GETR$:IFR$=""THEN16050 

16055 nusicn$ 

16060 R=UALCR$3:ONRGOTO2000,3000 
17000 CONSOLE :CURS0R28, 1 :PRINTC,03" " 
17010 C0NS0LE9, 16,0,40 :CLS 
17020 PRINT"E PI pericolo reagireste:" 
17030 PRINT"E 13 parai izzandovi ' 

17040 PRINT"E 23 cercando di far quale 
os a " 

17050 GETR$:IFR$=' ' THEN17050 

17055 nusicns 

17060 R=UPLCR$3:ONRGOTO9000,5000 
18000 CONSOLE:CURSOR28,5:PRINT[,0J" " 
18010 C0NS0LE9,16,0,40:CLS 
18020 PRINT"E Non s può' essere saggi:’ 
18030 PRINT"S 13 essendo furbi" 

18040 PRINT'S 23 senza essere furbi" 

18050 GETR$:IFR$=" THENi 8050 

18055 nusicn$ 

18060 R-UPLCRS3: ONRGOTO8000,14000 
20000 CONSOLE :CURS0R33, 1 : PRI NT[0,23"P" 
20010 C0NS0LE9,16,0,40 :CLS 
20020 DinC$C33:GOSUB30000 :PRINT"S :F0RI = 
0TO3:PRINTC$CI3 :FORWT = 0TO8000 :NEXTl*JT, I 
20030 GOTO24000 

21000 CONSOLE:CURSOR33,3: p RlNT[0,23 ; 8" 
21010 C0NS0LE9,16,0,40:CLS 
21020 DiriC$C33 :GOSUB301 00 :PRINT"S" :F0RI = 
0TO3 :PRINTC$ CI3:F0RUT = 0TO8000 :NEXTUT,1 
21030 GOTO24000 

22000 CONSOLE:CURS0R33,5 : p RINTC0,23"C" 
22010 C0NS0LE9,16,0,40:CLS 
22020 DinC$C33 :GOSUB30200 :PRINT"S" :F0RI= 
0TO3 :PR1NTC$C I 3 : FORWT " 0TO8000 : NEXTLIT , I 
22030 GOT024000 

23000 CONSOLE:CURS0R33,7:PRINTC0,23"D" 
23010 C0NS0LE9,16,0,40:CLS 
23020 DinC$C33:GOSUB30300 :PRINT"S":F0RI = 
0TO3 :PRINTC$CI 3 :F0RUT -0TO8000 :NEXTUlT, I 
23030 GOT024000 

24000 SKIP2 :riOOE T N :PC0L0R3 iPRINT/'P" G 
IOCPTE IN DIFESP 0 IN PTTPCC0 P 

24010 PRINT/P’- 

- —":PCOLOR1 :PRINT/P 
24020 FORI ---0TO3 :PRINT/PC$C I 3 :NEXTI 
24030 PC0L0R3:PRINT/P:PRINT/P"- 


24040 PRINTzP" eLLe software 

":SKIP4 

24050 PRINT'S <Prem un tasto per rico 
minciare)" 

24060 GETP$: IFP$ = THEN24060 
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24070 GOT0100 

30000 C$C03=" Una cosa e' certa: a uoi ! 

cari Trapat-tonij Bianchi e simili non 
hanno proprionie ni e da insegnare.ftnzi se 
ci conosces-sero c'e da star certi che 
prende rebberodecisamente le distanze." 
30010 C$C13=" Perche' difendersi ua bene 
5 ma i tipi come coi per paura di chi ss 
a' che cosa, farebbero marcare ad uomo a 
nche il mas- saggiatore. Non si può' mai 
s ape re 2 " 

30020 C$C23=" Sicuramente cosi s non si s 
apra'mai: ci-cere tutta la cita arroccat 
i dietro le proprie paure, non e' certo 
1 I modo mi- g I iore per capire se la min 
estra che passa il concento della cit 
a sia buona ocattica." 

30030 C$C33=" E se queste stupide parole 
ci hanno un po'' scosso, scusateci : anda 
ndo eia cer- cheremo di non far rumore.D 
ocessimo sce-gliarci, hai cisto mai..." 

30040 RETURN 

30100 C$C03=" Non siete tra quei tipi eh 
e si sguarni-scono le spalle, questo no. 

E' indubbio tuttacia che le costre brac 
e responsabi-lita' sapete prendercele." 
30110 C$C13=" Quando reputate che sia gi 
unto iI mo- mento non ci tirate certo i 
ndietro,pron-ti a giocarci anche tutto s 
e ciò' fosse ne cessario.Non siete insomm 
a tra quant ì" 

30120 C$ C2 3 = " g r i dano 'fìrmia’moci e parti t 
e': intanto perche' gia'fare proclami c 
i piace poco.E poi perche'la soluzione d 
ei costri af-fari,guerre,controcersie o 
semplici pro-blemi della cita di tutti i 
giorni, di" 

30130 C$C33 = "s ! curo non andate in giro a 
delegarla a chicchessia. Forse sara' un 
po' diffici-le farci scendere in campo, 
ma una coltadentro non sarete coi a tir 
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are indietro la gamba." 

30140 RETURN 

30200 C$C03=" Generosi, entusiasti, pien 
i di ceree, amate cedere la costra esis 
tenza come un 1nno al I 'esuberanza, come I 
a sagra delloottimismo. Siete dei cincit 
ori nati : un po' perche' la fortuna aiut 
agli audaci ;un po' perche'a forzare sem 
pre I a mano " 

30210 C$C13="e'difficile che finisca con 
un pareggio.Questo significa, e' eciden 
te, che sieteanche dei perdenti nati. La 
cosa proba- bilmente, pero', non ci fer 
isce piu' di tanto. Il costro piede infa 
tti e' sempre li', a tacoletta suI I'acce I 
e rat ore." 

30220 C$C23=" Non come dei pazzi scriter 
iati,capiamo-ci : le paure, i dubbi , le p 
erplessita'liacete anche coi; ma e' il m 
odo in cui lisuperate di slancio a fare 
di coi qual- cosa di molto dicerso da un 
qua Isiasi cacadubbi." 

30230 RETURN 

30300 C$C03 = " Ritmo e I ecat i ss imo, pressi 
ng asfissian-te, assalti continui: la co 
stra piu' che I'esistenza di un norma I e e 
ssere umano, sembra la messa in pratica 
del credo e- rikssonìano," 

30310 C$C13 = " fla la cita non e', fino a 
proca contra-ria si capisce, una partita 
a paIIone, doce togIiere spazio e pace 
agli altri può' dare i suoi frutti Cch 
e' poi anche nel rettangolo di gioco non 
sembra che cosi' di strada se ne facci 
a molta}." 

30320 C$C23 = " Parole probabi I mente getta 
te al cento: il mondo e' di chi se lo pr 
ende, ci an- drete probabiImente ripeten 
do da anni. Di chi se lo prende, perche 
' a coi non ciene neanche in mente che . 
qua I cuno pos-sa spontaneamente dare.' 1 
30330 RETURN 




Quando la pioggia 

picchia sui vetri della finestra. 

consolati con i programmi che LISI ti offre 
ogni mese e picchia anche tu sulla tastiera 
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I programma consiste in un classico gioco di 
prontezza visiva: viene visualizzato sullo schermo 
l’alfabeto completo di 26 lettere a caratteri «cubi¬ 
tali», dopodiché il computer cercherà di comunicare una 
parola, semplicemente facendo lampeggiare una cornice 
intorno alle lettere corrispondenti, in sequenza. Il giocato¬ 
re dovrà indovinare la parola, con lo scopo di raggiungere 
i fatidici 200 punti, non superando il massimo numero di 
tentativi disponibili, determinato dal livello di difficoltà 
prescelto. 

Ad un livello di difficoltà maggiore corrisponde una veloci¬ 
tà di lampeggio superiore, un numero di tentativi inferiore 
ed una attribuzione di punteggio maggiore per ogni parola 
indovinata. 

Il vocabolario da cui il gioco attinge le parole è posto alla 
fine del programma. Nel listato da noi fornito è limitato 
per ragioni di spazio, ma l’immissione di nuove parole è 
semplicissima: basta infatti aggiungerle alla fine del pro¬ 
gramma ed il gioco è fatto! Unico accorgimento da segui¬ 
re è quello di togliere l’asterisco presente alla fine 
dell’elenco e spostarlo al termine delle nuove parole ag¬ 
giunte. 

Ricordarsi, ovviamente, l’istruzione DATA all’inizio di ogni 
nuova linea. 

Il programma lavora in alta risoluzione (320x200 pixel) a 
causa della necessità di scrivere i caratteri dell’alfabeto 
ingranditi di ben quattro volte. Un carattere normale occu¬ 
pa una porzione di 8x8 bit, mentre i nuovi caratteri ne oc¬ 
cupano una di 32x32 bit! Per questo si è dovuta fare una 
«copia» della ROM di caratteri nella RAM a partire dalla 
locazione 49152. Dopodiché si leggono i caratteri bit per 
bit, di quadruplicano e si stampano in alta risoluzione. 
Forniamo ora una procedura per i lettori che desiderano 
utilizzare le routines del programma per applicazioni per¬ 
sonali: 

1) pulire prima di tutto la pagina grafica con questo stra¬ 
tagemma: DIM M(3600):CLR (vedi linea 10) 

In questo modo viene definita una enorme matrice che va 
a posizionarsi proprio nelle locazioni dove risiede la pagi¬ 
na grafica (8192-16191) per poi cancellarla completamen¬ 
te! 


2) creare il vettore con le potenze di 2, digitando la linea 
di programma 60. Questo permette di accelerare il proces¬ 
so di scrittura in maniera notevole. Porre inoltre V = 53248 
e B = 49152. 

3) digitare la linea 70, la quale attiva l’alta risoluzione, se¬ 
leziona il colore dei caratteri e blocca le interruzioni con 
la POKE 56333,127. 

4) inserire anche la POKE 1,51, che permette di leggere la 
ROM dei caratteri e per mezzo della linea 100 di effettuare 
la copia dei caratteri. 

Notare che i caratteri da copiare sono posizionati a parti¬ 
re dalla locazione contenuta nella variabile V inizializzata 
a 53248, mentre la copia inizierà a partire dal valore con¬ 
tenuto nella variabile B; inizializzata a 49152; 

5) digitare la POKE 1,55 e la POKE 56333,129 per portare 
tutto alle condizioni iniziali. 

6) digitare ora la subroutine 130-200 ed usarla a piacimen¬ 
to per disegnare i caratteri quadruplicati, considerando 
che prima di richiamare la routine con il comando GOSUB 
130 la variabile B dovrà essere inizializzata insieme alla 
variabile C. Le regole sono le seguenti: la variabile B deve 
contenere la locazione di inizio del carattere che si desi¬ 
dera stampare, calcolata con la formula 

B = 49152 +8* N 

dove N è il numero del carattere (da 0 a 62); la variabile C, 
invece, deve contenere la locazione da cui si vuole partire 
a stampare il carattere, calcolata con la formula 
C = 8216 + X*8 + Y*320 

dove X deve variare tra 0 e 36, mentre Y tra 0 e 21, (riga e 
colonna). 

Es.: B = 49168:C = 8192:GOSUB 130 

7) volendo invece stampare i caratteri in grandezza natu¬ 
rale, sarà sufficiente porre la variabile P$ uguale alla 
stringa che si vuole scrivere e la variabile P uguale ad un 
numero calcolato con la stessa formula già fornita per C 
(X potrà assumere i valori tra 0 e 39 ed Y tra 0 e 24). Poi 
basterà chiamare la GOSUB 240 e la stringa verrà stampa¬ 
ta. 

Se ad esempio si vuole scrivere la parola CIAO sulla 4° ri¬ 
ga, 10° colonna bisognerà digitare: 

P$ = “CIAO”:P = 8192 + 10*8 + 4*320:GOSUB 240 
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STRUTTURA DEL PROGRAMMA 

10-60 inzializzazione, definizione sprite, pulizia 
pagina grafica 

70 passaggio all'alta risoluzione, disabilitazio¬ 
ne delle interruzioni e definizione colore 
80-90 disegna le quattro linee sulla schermata 
100 copia i caratteri della ROM nella RAM 
110-120 scrive i caratteri giganti mediante chiamate 
alla routine 140 

130-200 subroutine per quadruplicare i caratteri 
210-220 cancella la riga per i messaggi-utente 
230-250 stampa i caratteri a grandezza normale 
260-280 inizializza le variabili dello sprite 
290-310 setta i vettori X ed Y che contengono le 
coordinate delle lettere dell'alfabeto sullo 
schermo, per muovere lo sprite 
320-330 conta quante parole sono presenti nel vo¬ 
cabolario 

340-390 inizio del gioco, con richiesta del livello di 
difficoltà 

400-450 controlla se si è superato il numero massi¬ 
mo di tentativi, altrimenti sceglie a caso 
una parola e fa muovere lo sprite sulle let¬ 
tere 

460-490 attende la risposta del giocatore 
500-510 se la risposta è sbagliata stampa la parola 
esatta, altrimenti incrementa il punteggio 
520-570 se il punteggio è superiore a 200 esegue la 
procedura di vittoria con la possibilità di 
cominciare a giocare di nuovo 
580+ subroutine che posiziona le variabili Al ed 
A2 all’inizio del «vocabolario», per la lettura 
dei DATA 

590 vocabolario, espandibile a piacere. 


LIST 


10 DIMM<3600)^ CLR:V=53248 ; £=49152 : FORI=3 
32T0895^ REfìDR : P0KEI,R:NEXT ; POKE2040,13 
20 DATA 234,170,171,186,170,174,181,85,9 
4,157,85,118,144,0,6,144,0,6,144,0,6 
30 URTA 144,0,6,144,0’, 6,144,0,6,144,0,6, 
144,0,6,144,0,6,144,0,6,144,0,6,144,0 
40 DATA 6,144,0,6,157,85,118,181,85,94,1 
86,170,174,234,170, 171,0 
50 DIMX < 27 ), V < 27 > : PQKEV+32,0 •' POKEV+33, 0 
60 FORI=0TO7 : E<I)=2TI : NEXT 
70 PR1NT' IT ' :POKEV+24,29 :PQKEV+17,59 ; POKE 
56333,127 :FORI = 1024TO2023•POKEI,48 :NEXT 
80 POKE1,51:FORI=0TQ288STEP8 : POKE15248+I 
,255 :P0KE8848+1,255 :NEXT 
90 FORI=0TO60803TEP320:FORJ=0TQ7■P0KE884 
0+I+-J, 1 ; P0KE9136+I+J, 128 : NEXTJ, I 
100 FORI=0TQ503 : P0KEB+1, PEEK<V+8+1>:NEXT 

110 C=9200:F0RR=1T03■F0RT=1T07:GOSUB140• 
C=C-1240 :NEXT:C=C+1320 :NEXT:C=C+40 
120 FORT = 1T05 : GOSUB140 ; C=C-1240:NEXT:GOS 
IJB580 : GOTO270 

130 REM ** STAMPA CARATTERI GIGANTI ** 

140 FORK=0TO7 ; FORI=0TO6STEP2 
150 X=PEEK<E+K)ANDE <I): IFXTHENX-15 


160 V=PEEK<B+K>ANDE <1 + 1): IFVTHENV=240 

170 FORJ=0TO3 : P0KEC-<I*4)+J, X+V : NEXT J, I 

180 KX=K/2 : I FKX=K/2THENC=C+4 : GOTO200 

190 C=C+316 

200 NEXT:B=B+8: RETURN 

210 REM *** CLEAR RIGA UTENTE *** 

220 FOR I = 15888T016040 : POKEI, 0 •' NEXT •' RE TUR 
N 

230 REM *** ROUTINE DI PRINT *** 

240 F0RL=1T0LEN<P$) :A$=MID$<P$,L, 1> •'Q=AS 

C<A$>~1:IFQ>63THENQ=Q-64 

250 Q=B+Q*8 ; FORH=0TO7:P0KEP+H,PEEK<Q+H): 

NEXT:P=P+S:NEXT: RETURN 

260 REM ***** INIZIO GIOCO ***** 

270 POKEI,55 ^PQKE56333,129■POKEV+23,1 
280 PGKEV+28,1 :POKEV+29,1 :POKEV+37,2 :POK 
EV+38,0 : P0KEV+39,1:B=43152 
290 FORI=0TO6 : V< I )«67 : V<I+7)« S 107 : Y<I + 14) 
= 147 :Y<1+21> = 187 :NEXT:FORI=0TO14STEP7 

300 FORJ=0TO5:X<I+J>=40+J*40:NEXTJ,I :FOR 
J=0TO4: X< 21+J)=80+40*J:NEXT:F0RJ=1T03 
310 X<J*7-1)=24 :NEXT:KX-RND< - TI> 

320 P0KE65,Al :P0KE66,A2:M=0:REfìDR* 

330 READA* • I FR$0 * ** ' THENM=M+1 : GOTO330 
340 P=8208 •' P*="< P A R 0 L I A M 0 > 

PUNTI=> 0 ":GOSUB240 :GOSUB220 : P=15888 

350 P*= ' 'LIVELLO? <1,2,3)":GOSUB240:PU=0: 
TN=0 TX=15 

360 GETA$ IFA$=""THEN360 

370 IFA$= ' *3 ' THENB=100 :1N=21 :GGTO400 

380 IFA*= ' '2 ' THEND=150:1N=18 :GOTO400 

390 11=200 : I N=9 : TX=25 

400 REM **** PAROLA **** 

410 IFTN=TXTHENG0SUB220:P$="-G-A-M-E-0 

-V-E-R-":P=8216:GOSUB240:GOTO540 
420 FORI=0TO1500 :NEXT 

430 P0KE65,A1■P0KE66,A2: READI* :KX=RNH<1) 
*M+1 :FORI = 1TOKX: READI$ :NEXT 
440 F0RL=1T0LEN<I*>:Q=ASC<MID*<I*,L,1))- 
65 :Z=ABS <X <Q >=24):POKEV+21,0 

450 POKEV+16,Z POKEV,X<Q>:POKEV+1,V< Q):P 

OKEV+21,1 : FORI=0TOD •' NEXT I, L 

460 POKEV+21,0: POKE 198,3 : GOSUB220 : U$= " " 

P*= ' '=> ' ' :P=15888 :GOSUB240 

470 GETR*:IFR$=""THEN470 

480 IFASC <R$> = 130RLEN<U*> >15THEN500 

490 U*=U*+R* : P*=R$ : P= 15904+LEN < U$ ) *8 •' GOS 

UB240 ; G0T0470 

500 TN=TN+1:1FUSOITTHENGOSUB220:P*=I*:P 
= 15888 :GOSUB240:G0T0410 
510 PIJ=PIJ+1N : P$=STR* < PU ) : P=8472 : GOSUE'240 
: IFPLK200THEN410 

520 P=8224 : P$="H-A-I-V-I-N-T-O":G0SUB2 

40 :FORQ=0TO25:Z=ABS<X<Q)=24) : POKEV+21,0 

530 P0KEV+16,Z:POKEV,X<Q):P0KEV+1,V<Q):P 

OKEV+21,1 : FOR J=0T0100 •' NEXT J, Q 

540 POKEV+21,0: GOSUB220 : F'$=' 'UN ' AL TRA PAR 

TITA ? " P= 15888 ; GOSUE'240 

550 GETAS: IFA$= ' ' ' THEN550 

560 IFR$="N*THENP0KE53265,27 :P0KE53272,2 

1 :POKEV+21,0:PRINT ' 7T ' : END 

570 GOTO340 

580 A1=PEEK<61 ):A2=PEEK<62): RETURN 
590 REM *** PAROLE DA INDOVINARE *** 

600 DATATELE'*/1SI ONE, RAD IO, COMPUTER, TASTI 
ERA,LASER,PROGRAMMATORE, 


FREQUENZA,* 
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i gioca contro il computer, muovendo la pedina 
bianca sulla scacchiera con i tasti per il control¬ 
lo del cursore, cercando di mangiare la pedi¬ 
na gialla che appare casualmente lampeggiando sullo 
schermo. Il computer, con la sua pedina verde, tenterà di 
raggiungerla prima di voi incrementando di dieci unità il 
suo punteggio. Il primo tra i due sfidanti che taglierà il 
traguardo dei 200 punti sarà il vincitore. Naturalmente en¬ 
trambi i giocatori devono verdersela con un’ulteriore diffi¬ 
coltà: ad un certo punto del gioco una qualunque delle ca¬ 
selle può cambiare colore, passando dal rosso al grigio, 
preannunciando che di lì a poco scomparirà. Ciò significa 
che chi finirà su quella casella precipiterà inesorabilmen¬ 
te nel vuoto. Nell’eventualità che entrambe le pedine con¬ 
tendenti escano di scena, esse verranno riposizionate nel¬ 
le caselle di inizio gioco e una nuova pedina gialla verrà 
visualizzata sulla scacchiera. 

È possibile selezionare tre livelli di difficoltà: il primo ha 
una funzione puramente didattica, per prendere confiden¬ 
za con il gioco, e i movimenti del calcolatore sono molto 
lenti; il secondo livello ed il terzo, invece, rendono il com¬ 
puter via via più veloce e batterlo risulterà un’impresa 
sempre più ardua. 

Il gioco è dotato di effetti sonori per ogni situazione; la 
pedina del computer e quella del giocatore producono 
muovendosi due suoni differenti, mentre altri effetti ven¬ 
gono prodotti quando si cattura la pedina gialla e quando 
si precipita, nonché quando appare la pedina casuale. 
Abbiamo parlato di una spiccata tridimensionalità del gio¬ 
co: in effetti la scacchiera appare in prospettiva ed è pos¬ 
sibile persino vedere degli effetti di ombra quando le pedi¬ 
ne si sollevano dal piano per mangiare la pedina gialla. 
Quindi un gioco d’effetto che offre qualcosa di più rispet¬ 
to a ciò che ci si aspetterebbe notando le esigue dimen¬ 
sioni del listato. 

Per chi non possiede un monitor a colori, niente paura: i 
colori scelti permettono di distinguere le pedine anche se 
viste in bianco e nero. Il programma è naturalmente strut¬ 
turato in subroutine: quella per il movimento delle pedine, 
quella per fare apparire la pedina random, quella che con¬ 
trolla ed esegue la cattura della «preda», quella che poco 
a poco elimina le caselle della scacchiera, ed infine quel¬ 
la che fa cadere nel vuoto le pedine che finiscono sulle 


caselle inesistenti. Tutte queste subroutine sono control¬ 
late dal blocco supervisore, dalla linea 300 alla 420. 
Particolare attenzione va prestata, durante la digitazione 
del programma, ai caratteri grafici: in particolar modo, la 
linea 40 è importantissima per la creazione della scac¬ 
chiera e va quindi digitata con cura. Per evitare confusio¬ 
ne forniamo quindi alcune precisazioni su questa linea: la 
variabile A$ va scritta digintando CTRL 2, SCHIFT N; la 
variabile C$ deve essere scritta digitando CTRL 3, CTRL 9, 
SCHIT £, due spazi, CTRL zero, SCHIFT £, CTRL 2, 
SCHIFT N; la variabile F$ è identica alla precedente tran¬ 
ne per il primo carattere, che è COMMODORE 8 e per la 
mancanza della parte finale. 

È inutile dire che è possibile adattare facilmente il pro¬ 
gramma alle proprie esigenze: ad esempio è possibile al¬ 
terare il punteggio da raggiungere, cambiando i due valori 
pari a 200 della linea 620. Normalmente le caselle della 
scacchiera cominciano a scomparire quando la somma 
dei punteggi del computer e del giocatore supera il valore 
di 160: è possibile fare in modo che le caselle comincino 
a sparire subito dall'inizio del gioco oppure più tardi, sem¬ 
plicemente alterando il valore nella linea 480. 

Non ci resta altro che augurarvi buon divertimento e... in 
bocca al computer! 


LIST 


10 V=53248•2=54272 : X=128•Y=88 ; X1=0 : V1=0 : 
X2=4:V2=4•POKE650; 64 :POKEV+21,0 
20 FTÌKE53280,0 • P0KE53281,0: F'RINT 'TE" INP 
UT "LIVELLO DI DIFFICOLTA'' <1,2,3) ";Q 
30 NA=9-Q*3 : IFQOORQ>3THEN20 
40 h$=■ ■ ■ •' w*/" ■' d$="“" ; F$="s:ar 

W' ' ; G*= ' ’ ' ‘ : FQRI=0T04 :A$=A$+C$ : NEXT 

50 FOF: I =0TO23 B$=B*+DS : NEXT ; E$= * V ' '+BT+ ’ V 
’’ : PRINT’TleMtìar' FRINTTAB< 15>B$ 
fQ FOR1 = 11TO0STEP-3 : PRINTTAB<I+2 >A$:PRIN 
TTRB <1 + 1 ) A$ : PR I NTTAB< I > Et- ■ NEXT 
70 FRINT" "fì$:PRINTA$:PRINTB$ 

80 FORI=832TO860 ; READK : POKEI,K ; NEXT:FORI 
=861T0894 : POKE1,0:NEXT T=RND<-TI> 

90 POKE2040,13 :POKE2041,13:POKE2042,13 :P 
OKEV+23, 7 ■ POKEV+29,7 : POKEV+39,1 


S 
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106 POKEV+40,5 :POKEV+41,7 : POKEV,X : POKEV+ 
1,V•POKEV+2, 193 ■ POKEV+3, 184 :POKEV+16,0 
110 POKEV+21,3 : POKEZ+2, 100 ; PQKEZ+5 .-15: PO 
KEZ+24,15'F<0>=2 : F <1> = 100:GOTO590 
120 DfìTft 1,255,192,3,255,160,7,255,36,15 
,254,132,31,253,128,63,251,0,127,246,0 
130 DATA 0, 12,0,255, 232, 0, 255, 224 
140 REM *** MOVIMENTO PEDINE W* 

150 L-R:M=B•POKEZ+4,65 :PQKEZ+1,F <G>=POKE 
2+4,64 

160 I FR^= ' 71' THENB=B-1 : GOTO200 

170 IF A$= ' ’W ‘THENB=B+1 : GOT0200 

180 IFfl$= ,, M"THENfl=fì+l :GOTO200 

130 I FR$=‘*ir 'THENfl=R-1 

200 IFRCOTHENR=0 : RETURN 

210 IFB<0THENB=0•RETURN 

220 IFR>4THENR=4•RETURN 

230 IFB>4THENB=4•RETURN 

240 IFA=CANDE=DTHENIFS < R,B > =@THENR=L ; B=M 

: RETURN 

250 S=0 ; T=0 ; IFA=4RNDB<2THENS=-255 : T=G+1 

260 P0KE53263,6-0 :Q=24*B:R=V+G+G 

270 POKER, X+40*fl-Q+S ; POKER+1, V+Q ■' P0KE532 

64, PEEK<53264 > RND < 6-0) >ORT 

280 P0KE53263,7-1FS<R, B >THENGOSUB730:POK 

E138,0 

290 RETURN 

300 REM 4=*** INIZIO 4=**4i 

310 GETA$ ^ I FR$= 1 ' ' , ORU < 0 > THEN340 ~ '' 

320 POKE198,0 : 0=0 :R=X1 : B=V1 :C=X2 : D=V2 : 00 

SUB140 : X1=R : V1=B 

330 IFX1=XOANDV1=V0THEN540 

340 IFW=0THEN440 

350 IFU <0> RNDU<1>THENW=0 ; GOTO600 

360 DF=DF+1 : IFDFCMRORU<1> THEN310 

370 DF=0: 0=1 :1FX2>X0THENfl$= 1 II ' :GOTO420 

380 IFX2<X0THENR$= ,, M*':GOTO420 

390 IFV29V0THENR*="T 1 ; GOTO420 

400 IF V 2 < V 0 T H E N fi $ « ' * : GOTO420 

410 GOT0540 

420 A=X2•B=V2:C-X1 :D=V1 :GOSUB140 :X2=R:V2 
~B : GOT0310 

430 REM 4=4* PEDINR CASUALE *4=4 

440 BF=DF+1:IFDF<Mfl#5THEN310 

450 IFFAANDRND<1>>0.8THEN700 

460 X0= I NT < RND < 1 > *5 ) '■ V0= I NT < RND < 1 > 4=5 > 

470 IF <X0=X1RNDV0=V1>OR<X0=X2ANDV0=Y2>OR 
S(XU,V0)THEN460 

480 IFP <0>+P <1 »120RNDRND<1 ') >0.6THEN690 
4.90 POKEV+21,3 ■ POKEZ+1,200 : W = 1 ■ S=0 : T=0 = D 


F=0: IFX0=4fìNDV0<2THENS=-255 :T=4 

500 POKEV+4, X+404sX0-24*V0+S : POKEV+5, V+24 

#V0 ■' POKEV+16, ( PEEK < V+16 > AND251 >ORT 

510 FORI=@T08 : POKEV+21,3 :POKEZ+4,65•FORT 

=0T020 : NEXT = POKEV+21,7 POKEZ+4,64 

520 FORJ=0T020 :NEXT J,I■POKE138,0 :G0T0310 

530 REM *4=* CRT TURA PEDINA *## 

540 POKEV+41,0:POKEZ+4,123 : POKEZ+24,7 

550 Q=V+G*2+1 ; FORI=0TO15 = POKEQ,PEEK <Q)-2 

: POKEV+5, PEEK < V+5 >+2 - POKEZ+1, 14=10 NEXT 

560 FORI=0T015 :POKEQ,PEEK < Q> +2 :POKEV+5,P 

EEK( V+5> -2 : POKEZ+1, 150+14=7 • NEXT 

570 POKEZ+4,0 :POKEZ+24,15 

580 POKEV+21,3 = POKEV+41,7:POKEV+4,0 :POKE 

V+5 • 0 : X0—5 : V0=5 • P ( 0 =P ( 0 ) +10 

590 W=0:PRINT "#"■ PRINTTAB(8 V 1 aaPLAVERi : 3 

' ’P <0 >; TRE <23> ' * SHC0MPUTER5 3"P(1> 

600 IFU<0 > THENX1=0 : V1=0 :POKEV,X :POKEV+1, 
V : POKEV+16,PEEK<V+16> RND6 : U <O > =0 

610 IFU <1>THENX2=4 :V2=4:POKEV+2,193 :POKE 


V+3,184:POKEV+16,PEEK <V+16 >AND5 ; U <1>=0 
620 POKE198,0:1FP<0 >C200RNDP<1> C200THEN3 
10 

630 FOR I =0TQ240 : POKEV+32 ,I : NEXT : P0KE2 14 , 
22 : PR I NT : PR I NT ' *UN ALTRA PRRTITR? ' ', 

640 POKE138,0 

650 GETA$:IFR$=""THEN650 

660 PGKE650,0 : POKEV+21,0 : PRINT’Tr : IFR*0 

"N"THENRUN 

670 END 

680 REM *** ELIMINAZIONE CASELLA 4i** 

690 IFX0=00RV0=O0RX0=40RV0=4THEN310 

70O POKEZ+4,65 : POKEZ+1,2 •' IFFRTHEN730 

710 F*.'= 14+X0*5-V0*3 : OX=V04i3+4 : POKE214, GX 

:PRINT :PRINTTAB<FX> F$:PRINTTRE< FX-1>F* 

720 FR=1 : A0=X0:B0=V8 GOTO740 

730 FR=0:POKE214,OX : PRINT :PRINTTAB< FX >0 $ 

:PRINTTAB <FX-1)0$ ; S <A0,B0> = 1 
740 FORI=0TO150 :NEXT:POKEZ+4,64 
750 IFX1=R0RNDV1=B0THENO=0 : OOSUB790 
760 I FX2=R0RNDV2=B0THENG= 1 •' GOSUB790 


770 GOTO310 

780 REM +'4=4i CADUTA PEDINA *4-:4= 

790 POKEV+27,0+1 :POKEZ+4,65 :R=V+1+0*2 :Q= 
PEEK(R > 

800 FORI=QT0255 : POKEZ+1,255-1 POKER,I : NE 
XT:POKEZ+4,0 : IK0> = 1= POKEV+27,0 = RETURN 


"LIST" si realizza anche con il TUO contributo! 

Attendiamo idee e proposte 

PER COSTRUIRE INSIEME 
QUESTA RIVISTA... 

sempre di più la tua rivista 
se vi collabori assiduamente! 
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PROGRAMMA 


di Alessandro Ceracchi 


CI28 



i tratta di un programma strutturato in modo tale 
da non presentare alcuna difficoltà di applicazio¬ 
ne, risultando molto veloce. 

La struttura dei dati è imperniata su di un file relativo, uti¬ 
lizzato per contenere i record relativi agli articoli, e su uno 
sequenziale, di dimensioni molto più modeste, che servo¬ 
no al programma come indice utile per consentire una ri¬ 
cerca sicura e veloce. 

La ricerca di un record, e la consultazione delle informa¬ 
zioni che lo riguardano, è affidata ad una routine che ef¬ 
fettua una scansione dell’indice. 

Tale scansione avviene in memoria e non su disco, allo 
scopo di aumentare il più possibile la velocità di ricerca. 
L’indice viene infatti caricato in memoria pochi istanti do¬ 
po il lancio del programma; solo una volta trovato l’ele¬ 
mento interessato viene aperto il file relativo e viene con¬ 
sentito l’accesso al record richiesto. Il programma si com¬ 
pone di un corpo centrale e quattro subroutine. 

Il corpo centrale è guidato da un menu principale. Una 
delle quattro routine gestisce le finestre video, ideate per 
rendere più leggibili le schermate e per agevolare il più 
possibile l’utente. 

Il menu principale presenta 6 opzioni subito descritte: 

1: consente di accedere ad un sottomenu che implementa 
tutti i comandi DOS. 

2 e 3: si effettuano le operazioni di carico e scarico del 
magazzino; gli unici dati richiesti sono il codice articolo e 
la quantità in oggetto. Non sono chiaramente concesse 
operazioni di scarico «illecite», basate su quantità di sca¬ 
rico superiori alla quantità realmente disponibile. 

4: usata per avere una visione completa della situazione e 
cioè l’inventario, che può essere di tipo selettivo o com¬ 
pleto. Con l’inventario selettivo, l’elaboratore presenta 
uno per uno i codici degli articoli, chiedendo quali debba¬ 
no essere presi in considerazione. L’inventario completo 
opera con le stesse modalità di quello selettivo, l’unica 
differenza è che l’archivio viene preso in considerazione 
per intero. 

5: usata per attuare eventuali variazioni di un record già 
esistente, o per inserire uno nuovo. Ad operazione com¬ 
piuta, il file indice viene aggiornato automaticamente. 
Ogni record occupa 131 byte e la dimensione dell’archivio 
è subordinata allo spazio del dischetto. 


Ogni record è composto dai seguenti campi: 

Codice (max. 14 car.) 

Nome (max 20 car.) 

Descrizione (max 79 car.) 

Quantità minima (max 999999999) 

Si consiglia di lasciare il campo descrizione il più libero 
possibile ai fini di ottenere una gestione del file più age¬ 
vole e veloce. 

Il programma scritto per il C128 a 80 colonne supporta 
disk drive e stampante. 
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170 ST*= *INITIALIZE" 

180 DCLERR•DIMNfl<1000 >,CR$ C1000>,RI$<100 
0> 

190 GOSUB3210 

200 REM ** LETTURA FILE INDICE ** 

210 DOPEN#1," INDEX FILE *,R 
220 INPUT#1,NR 
230 F0RI=1TÙNR 
240 INPUT#1,NA<I> 

250 INPUT#1,CA$<I) 

260 NEXT 

270 ST$**MAIN PROC . H 

280 GGSUB3210 

290 WINBGW2 , 4 .• 30,20 

300 PRINT"TIMIff'IENU' PRINCIPALE* 

310 PR INTUII) OPERAZIONI DOS 
320 PR INTIMO CARICO MRG. 

330 PRINT 4 MC3 ) SCARICO MRG. 

340 PRINT'♦WW) INVENTARIO MRG. 

350 PRINT*MI5) EDIT ARTICOLO 
360 PRINT 4 ;?JIS> EXIT 
370 GETKEVRf 

380 IFR$= 4 6♦THENPRINTCHR*(13)CHR$ C .19 >CHR 
*< 147): END 

390 ONVRL<R$>GOTO440,980,1220,1580,2100 
400 GOTG300 

410 DOPEN#1,*RRTICOL I" 

420 INPUT#1,A$ 

430 END 

440 REM ** COMANDI DOS ** 

450 STS=*DOS COMMAND * 

460 GOSUB3210 

470 WIND0W2 , 4, 30,20 

480 PR I NT 4 n*!ll:CPERAZ I OH I DOS 

490 PRI NT 4 PIU) FORMATTAZIONE DISCO 

500 PR INTIMO CAMBIO NOME FILE 

510 PR INTIMO DIRECTORV 

520 PRINT«MI4) COMANDO DOS DIRETTO 

530 PRI NT ♦MB) ELIMINAZIONE FILE(S) 

540 PRINT^MIS) RITORNO AL MENU 
550 GETKEVR* 

560 IFR$=*6 "THEN270 

570 I FR $=* l" THENBEGIN 

580 NINDOWS‘8,4,65,20 

590 PR I NT* SaOFQRMRTTAZ I ONE 

600 PR INT 4 'MH10ME " ; : INPUTND* : IFLEN(NDT) 

=0ORLEN(ND$>>16THEN590 

610 PRINT"MUZIK ? CS/N]* : GETKEVP* 

620 I FP$=* S ♦THEN HERDER <NDT- > , I MA ■ G0SUE32 
10 

630 WIND0W38,4,65, 20 PR I NT* 72* 

640 BEND 

650 IFR*=*2* THENBEGIN 

660 WIN D 0 W 3 8 , 4,65 , 2 8 

670 PRI NT" SCAMBIO NOME FILE 

680 FRINT*MVECCHI NOME : *; ; INPUTVNT 

690 PRINT*M-JUOVO NOME ■ ' INPUTNNT 

700 IFLEN<VNT> =80RLEN(NN*>=0ORLEN<VNT)>1 

6QRLEN<NNT> >16THEN670 

710 RENANE (VNf) TO ( NN* ) G0SUB3210 

720 WINDQW38, 4,65,20 • PR I NT" 73" 

730 BEND 

748 IFR*="3"THENBEGIN 

750 MINDOW38,4,65,20 

760 PR I NT" IRECTORV Dù U8M* 

778 CATALOG ; PRINT"SPREMI UN TASTO" ; GETKE 
VT$ 

780 PR I NT" 71 * ■ G0SUB3210 


790 BEND 

800 IFR*="4*THENBEGIN 
810 NINDON33,4,65,20 
820 PRI NT* SAGOMANDO DOS» 

830 PRINT">"; • INPUTCQ* 

840 OPEN15,8,15,CO* 

850 CL0SE15 
860 G0SUB3210 

878 NIND0W38, 4,65,20 : PR I NT" 71* 

880 BEND 

890 IFR*="5"THENBEGIN 

980 NIND0W38,4,65,20 

910 PRINT"ITOSELIMINAZIONE FILEM 

920 PRINT"NOME "ri NPUTNOf • IFLEN ( NO* ) =00 

RLEN < NO*)>16THEN910 

930 PRINT "MCK ? CS/N]" : GETKEVP* 

940 IFP$="S"THENSCRATCHCNO*) : GOSUB3210 
950 NIND0N38, 4,65, 20 : PR I NT* 71" 

960 BEND 
970 GOTO470 

980 REM ** OPERAZIONE DI CARICO ## 

990 ST$="CHARGE* ; IFNR=0THEN270 

1000 G0SUB3210 

1010 MIND0N38,4,65,20 

1020 PRI NT" □«•CARI CO MAGAZZINO 

1030 PRINT*JUCODICE>... ", : INPUTCO* 

1040 PRINT"7IKIIJN MOMENTO PREGO..." 

1050 GOSUB2790 

1860 IFFL=1THENPRINT"73":GOTO270 
1070 PRI NT" ."IMOC. 

1080 PRINT*MCINSERISCI LA QUANTITÀ'* 

1090 PR INTRIDA CARICARE : : INPUTQC 

1100 IFQC<0ORQC+Q>999999999THEN1070 
1110 Q*=STR$<Q+QC>:LU=9:E$=G$:GOSUB3280: 
Q$=E$ 

1120 DOPEN#1 /'ARTICOLI" 

1130 RECORD#1,PA 
1140 INPUT#1,X* 

1150 MID$<X$,114,9)=Q$ 

1160 RECORD#1,PA 
1170 PRINT#1,X$ 

1180 DOLOSE#1 

1190 PR I NT" 7IMOJANT. : ", Q+QC 
1200 SLEEP2:PRINT"73" 

1210 GOTO270 

1220 REM m OPERAZIONE DI SCARICO **■ 

1230 ST$="DISCHARGE" : IFNR=0THEN270 

1240 GOSUB3210 

1250 WIND0W38,4,65,28 

1260 PRINT"7IMÌ3SC ARICO MAGAZZINO* 

1270 PR I NT" JQCODI CE>.. . : INPUTCO* 

1280 PRINT"mifJN MOMENTO PREGO..." 

1290 GOSUB2790 

1380 I FFL= 1 THENPR I NT" 73" : GOTO270 
1310 PRINT"3*MDK. * 

1320 PRINT"MIINSERISCI LA QUANTITÀ'" 

1330 PRINTRIDA SCARICARE :: INPUTQC 
1340 IFQCC0THEN1310 

1350 REM ** CONTROLLA SE L'OPERAZIONE DI 
SCARICO E' POSSIBILE ** 

1360 IF Q-QCC0THENPRINT"ZKIMBCARICO IMPO 
SS IBI LE " SLEEP2 : GOTO 1310 
1370 IFQ-QCOMQTHENBEGIN 
1330 PRINT"72K>»»PL'OPERAZIONE DI SCAPIC 
0 

1390 PRINT"HPMfliPORTfì LA QUNATITA' IN 
1408 PRINT*«»MI1AGAZZIN0 AL DI SOTTO 
1418 PRINT"IMMIDEL LIVELLO MINIMO; 
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1420 PRINT*«»MWUOI UGUALMENTE EF- 
1430 PRINT*IMMFETTUfiRE L'OPERAZIONE ? 

1440 PRI NT' lift MIC S/N J " : GETKEVP$ 

1450 IFPT="N"THENQC=0 
1460 BEND 

1470 GT=STRT<Q-QC> : LU=9 : ET=QT- : GOSUB3280 : 
QT=ET 

1430 DOPEN# 1 ," ART I COL 1" 

1490 RECORD#1, PA 
1500 INPUT#1,XT 
1510 MIDT CXT,114,9)=QT 
1520 RECORD#TRA 
1530 PRINT#1,XT 
1540 DOLOSE#1 

1550 PR I NT" riGIIQIJANT. : ", Q-QC 
1560 SLEEP2 : PR I NT" 73" 

1570 GQTO270 

1530 REM ** OPERAZIONI DI INVENTARIO SEL 
ETTIVO PER ARTICOLO ** 

1590 REM ** OPPURE COMPLETO PER TUTTI I 
DATI CONTENUTI NELL'ARCHIVIO ** 

1600 ST$="DISPLAV/PRINT ":G0SUB3210 

1610 WINDGW38,4,65,20 

1620 PRINT"HOMINVENTAPIO 

1630 PRINT*»I35KLETTIV0 

1640 PRINT**1ISC3DMFLET0 

1650 GETKEVPT 

1660 IFPT="S 4 THENEEGIN 

1670 UIND0W2 .• 4,30,20 : PR I NT" 3 " 

1680 PRINT" IMI NVENTARIO SELETTIVO 
1690 PRINT":fJt5CEGLI GLI ARTICOLI DA 
1700 PRINT"«CONSIDERARE CON I TASTI 
1710 PRI NT" Il <S> E <N>» 

1720 FORI = 1TONR: IFCATCI) ="# 4 THEN1760 
1730 PRINT">r;CA$a:> 

1740 GETKEYRITCI> 

1750 IFRI T C I > =" S "THENPRI NT" ."US*; CAT< I ) ; T 
AB < 25 > ;" OK— " 

1760 NEXT 

1770 PRINT"MISICURO ? CS/N3 
1730 GETKEYS*:IFST="S"THEN1800 
1790 GOTO1670 
1800 BEND 

1810 I FPTO" S "THENBEGIN 
1820 FORI=1TONR : RITCI)= 4 S" ; NEXT 
1830 BEND 

1840 PRINT" 3* :WIND0W38,4,65,20 
1850 PRI NT" IDEO/STAMPA CV/S]" 

1860 GETKEYST 

1870 IFST="V"THENBEGIN 

1880 FORI*lTONR: IFCATCI ) = "*"THEN1920 

1890 IFRITCI)="N"THEN1920 

1900 PA=I : GOSUB2910•G0SUB3110 

1910 GETKEVUT 

1920 NEXT 

1930 BEND 

1940 I FST="S"THENBEGIN 
1950 0PEN2,4 ; ST="" 

I960 F0RL=1T079 ; ST=S$+"“" : NEXT 
1970 PR I NT#2, CHR$ (14 > CHRT C16 > 4 151 NVENTAR 
IO MAGAZZINO"CHRT(15) 

1980 PRINT#2,ST 

1990 PRINT#2,CHRTC16>"02CODICE"CHRT(16 > * 
20NOME"CHRT<16 >*50QUANTITA'"CHRT(16)"64Q 
.MIN"CHRT06)"750RD." 

2000 PR I NT#2 .• ST 

2010 FORI = 1TONR: IFCATCI > = "*"THEN2060 
2020 IFRITCI>="N"THEN2060 
2030 PA=I : GOSUB2910 
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2040 KT="NO": IFQM>=QTHENKT="SI" 

2050 PRINT#2,CHRTC16 ) "02"CXTCHRT(16)"20 " 

NXTCHRTC 16 )" 50 "Q ;CHRT(16 )"62";QM;CHRTC16 

>*75 4 KT 

2060 NEXT 

2070 PRINT#2,ST 

2080 BEND 

2090 PR I NT" 3 " ■ WIND0W48,4,77,20 : PR INT 4 71" : 
GOTO270 

2100 REM ** EDITAZIONE INFORMAZIONI RELA 
TIVE AD UN ARTICOLO ** 

2110 REM ** INCLUSE OPERAZIONI DI NUOVO 
INSERIMENTO E DI ** 

2120 REM ** CANCELLAZIONE 

$$ 

2130 PRINT" 3"•STT="EDIT" G0SUB3210 

2140 NINDQW38,4,65,20 

2150 PRINT"riBII^EDIT ARTICOLO" 

2160 pr i nt" manaoB i f i ca/nuovo 
2170 PRINT" MiaCBRNCELLflZIONE 
2180 PRI NT* MISRHI TORNO AL MENU' 

2190 GETKEYST • PRINT"7}" 

2200 IFST=" R "THENPRINTCHRTC19 >CHRT C19 ):P 

RI NT" W" ■ FORC= 1TO17 : PR I NTA$ ; NEXT : GOTO270 

2210 IFST="C"THENBEGIN 

2220 IFNR=0THENFG=1 GOTO2350 

2230 PR I NT" ZftlfSCANCELLRZ I ONE 

2240 PR I NT" JPCODI CE>. .. : INPUTCOT 

2250 IFLENCCO* »14THEN2240 

2260 PRI NT" nmtJN MOMENTO PREGO..." 

2270 GOSUB2790 

2280 IFFL= 1 THENPR I NT" 71" : GOTG2350 
2290 PRINT"TMFIRTICOLO :"jCOT 
2300 PR I NT" >FOS IZI ONE : ", PA 
2310 PRINT" flitLIMINO ? CS/ND" 

2320 GETKEYRT 

2330 IFRT="S■"THENCRTCPA)="*" 

2340 NR=NR-1 
2350 BEND 

2360 IFST="M♦THENBEGIN 

2370 PRINT"ZMÌ810DIFICA DATI 

2380 PRINT" W30DICE>... "i ■INPUTCOT 

2390 I FLEN C COT ) > 14THEN2370 

2400 PRINT"rifilJN MOMENTO PREGO..." 

2410 GOSUB2790 : PR I NT" 71" 

2420 IFFL=1THENBEGIN 

2430 CXT=* " • DXT=" " : NXT=" " : PR I NT" 7im"\ COT 
NON ESISTE !" 

2440 PRI NT* MIC* NUOVO ? C S/N ] " : GETKEVT T '■ 
FG-0 

2450 IFTT="N"THENPRINT" 71" : FG= 1 : GOTO2470 
2460 NR=NR+1 PA=NR 
2470 BEND 

2430 IFFG=1THEN2680 

2490 ET=COT ; CXT=COT:GQSUB3110 

2500 PRINT*WI*»»»»M»MI"; : INPUTET : IFLE 

N< ET)>14THEN2500 

2510 LU=14 :GOSUB3280 : CXT=ET 

2520 PRINT*amOWMMÌÌP»ir; : INPUTE$: IF 

LEN C ET > >20THEN2520 

2530 LU=20-GOSUB3280 : NXf=Ef 

2540 PRINr'ciPM^fil^iPiMUSiil", ■ INPUTEf : 

IFLEN C ET> >7STHEN2540 
2550 LU=79:GOSUB3280 DXT=ET 
2560 PRINT"?Il!ItìPI«!!m(!ll!l?l0|i*»**»Ì*»»l"; : INPU 
TET: IFVALC ET >CQORVALC ET)>999999999THEN25 
60 

2570 LU=9■GOSUB3280■QT=ET 

2530 PR INT": IN 
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GESTIONE MAGAZZINO 


CI 28 


LIST 6 


PUTE$ : IFVAL<E$ ) C0ORVAL<E$> >939999339 THEN 
2580 

2590 LU=9^ GOSUB3280:QM$=E$ 

2600 X$= *" : X$=CX$+NX$+DX$+Q$+QM$ •' Q=0 : QM= 
0 

2610 PRI NT* rifll UFI T TENDE RE PREGO..." 

2620 DOLOSE 

2630 DOPEH#1,"RRTICOLl'O L132 
2640 RECORD#1,PR 
2650 PRINT#1, X$ 

2660 DOLOSE#1 

2670 Cfì$ <PR >=00$^ Nfl< PR ) =PR 
2680 BEND 

2690 SORRTOHL’INDEX- FILE" 

2700 D0PEN#1/'INDEX FILE",W 
2716 PRINT#1,NR 
2720 FORI=1TONR 
2730 PRINT#1, NR<I) 

2740 PRINT#1, CR$ < I ) 

2750 NEXT 
2760 DOLOSE#1 
2770 REM 

2780 PRINT" 3*■ G0T02140 

2790 REM m RLGORITMO DI RIOEROR RRTICOL 
0 E DETERMINOZIONE POSIZIONE #* 

2800 REM m LR ROUTINE LEGGE ANCHE I ORM 
PI DEL RECORD INTERESSATO E ** 

2810 REM m LI SCOMPONE, TENEDO CONTO DE 
LLE SINGOLE LUNGHEZZE **■ 

2820 REM 

283G REM m RICERCA CODICE NELL'AREA IND 
EX 4ì4ì 

2840 1=0 ; FL=0 

2850 IFI=NR+1ORCG$=" # THENFL=1 : RETURN 
2860 1=1+1 \ 

2870 I FCOl-OCR* < I ) THEN2850 
2880 PR=I 

2890 REM m PR+N.RO RECORD ** 

2900 REM ** LETTURA DEL RECORD INTERESSA 
TO NEL FILE ARTICOLI *# 

2910 DOLOSE 

2920 DOPEN#1 /'ARTICOLI",L132 
2930 RECORD#1,PR 
2940 INPUT#1,N$ 

2950 DOLOSE#1 

2960 REM *## SEPARAZIONE CAMPI UT IL 

i **$ 

2970 REM 

2980 REM ### 1-CODICE MAX 14 CRR.. 


LIST 


. cx$ 


2990 

REM 

M* 

2- 

■NOME 

MAX 

20 

CAR. . 

. . . .t 

■m 







3000 

REM 


3- 

•DESC. 

MAX 

79 

CAR. . 

. . . .] 

jX$ 







3010 

REM 


4- 

■QIJANT. 

MAX 

09 

CAR. . 

.... ( 

? 







3020 

REM 


5- 

■Q. MIN 

MAX 

09 

CAR.. 

....QM 

m* 






3030 

REM 


TOTALE 

131 

CAR 



*** 






3040 

REM 







3050 

CX$= 

: M I D$ ( X$, 

1, 14) 




3060 

NX$= 

=MID$(> 

<$, 

15,20) 





3070 DX$=MID$<X$,35,79 ) 

3080 0=VAL<MIDT<X$,114,9 ) > 

3090 QM=VAL< MID$<X$,123,9 > ) 

3100 RETURN 

3110 REM ** ROUTINE DI STAMPA INFORMAZIO 
NI RELATIVE AD UN ARTICOLO ** 

3120 WIND0W2,4,68,20 
3130 PR I NT" :»!li:OB I CE : ; CXT 

3140 PR INT" PJtCìME • i:****PI"; NX$ 

3150 PR I NT" fcMDESCR. : i:>*»»l"; DX$ 

316.0 PR I NT" saidia IANT. : ; 0 

3170 Q$="" 

3130 IFQ<=QMTHENQ$ =" 3»T 
3190 PR INT" . MIN. ■ Q$ QM; CHRT < 1 

43) 

3200 RETURN 

3210 REM m AGOIORNAMET0 INFORMAZIONI SC 

m 

3220 SOUND1,13800,10 

3230 WINDOW18,2,22,2 

3240 PRINT"n"NR,•REM ** N.RO ARTICOLI 

3250 PRINTCHR$<19 > CHR$<19 > ; UIND0W54,2,68 

9 

3260 PR I NT" 73*ST$ ; •' REM M STATO PROGRAMMA 
** 

3270 RETURN 

3280 REM m ROUTINE RIEMPIMENTO DELLE ST 
RINGHE DI LUNGHEZZA FISSA ** 

3290 REM ** PARAMETRI DI CHIAMATA : LU=L 
UNGHEZZA FINALE - E$=STRINGA ** 

3300 di=lu-len<:e$> 

3310 FORV=lTOIiI 
3320 E$=E$+CHR$ <32) 

3330 NEXT 
3340 RETURN 


NEL PROSSIMO NUMERO, PER COMMODORE C64-128 

VIDEO-CRUCIVERBA: il più spassoso dei passatempi sul vostro monitor. 
IL MUSICHIERE: un gioco «classico» per le tradizionali riunioni natalizie. 
ELEMENTI DI CHIMICA: per riuscire in breve tempo ad imparare 

ciò che a scuola richiede mesi. 

CALCOLATRICE: per eseguire calcoli come con una autentica 

calcolatrice scientifica. 


Una girandola di programmi... tutti da non perdere!!! 
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PROGRAMMA 



SPECTRUM 



di Giulio Vannini 







e normali routines di LOAD e SAVE dello Spec- 
trum distinguono in due parti i files registrati su 
cassetta: Pheader ed il corpo del file. La prima 
parte contiene informazioni riguardanti la natura del file 
(BASIC, dati, codici), la lunghezza, la locazione di parten¬ 
za. Qualche volta può risultare utile non considerare l’hea- 
der per agire direttamente sul corpo principale. La routine 
in linguaggio macchina che vi proponiamo permette di 
salvare e caricare blocchi di memoria senza header. Co¬ 
piate il programma ed i codici e date RUN. La parte in BA¬ 
SIC carica in memoria i codici della routine controllando 
che non abbiate commesso errori durante la digitazione. 
Se tutto è andato liscio, disponete ora di due nuovi co¬ 
mandi la cui sintassi è 

*SAVE start, lenght e *LOAD start, lenght 
A questo punto potete anche cancellare il BASIC con 
NEW, ricordando però che il NEW, come alcuni altri co¬ 
mandi, riportano lo stack del computer allo stato origina¬ 
rio, rendendo inutilizzabile la routine di riconoscimento 
dei nuovi *SAVE e *LOAD. Per reinizializzare il computer 
basta dare RANDOMIZE USR 65356 e i comandi saranno 
di nuovo implementati. VI consigliamo di salvare i codici 
del L/M con il comando 
SAVE “headcode” CODE 65162,206 
per poi caricarli al momento opportuno sotto forma di co¬ 
dici. Ricordatevi però di abbassare la RAMTOP almeno fi¬ 
no a 65161 con: 

CLEAR 65161 

Eviterete così di provocare pericolose modifiche del solito 
STACK che potrebbero anche mandare in CRASH il com¬ 
puter. 

L’uso appropriato di questa routine in L/M dipende da voi 
e da come usate il vostro computer. Se scrivete giochi po¬ 
trete salvare i files del vostro programma con questo si¬ 
stema creando così una decente protezione per il vostro 
lavoro. Se siete degli «smanettoni» potrete andare a curio¬ 
sare in quei programmi commerciali dove spesso manca¬ 
no gli HEADERS proprio per scopi protettivi. 


-OTTI 

90 CLEAR 65161 
100 RESTORE 
110 DEF FN h(hl> 

-48--(7 AND hi ( 1 ) > 

>-48-(7 AND hi <2 
) >"9") 

120 LEI start=65162. 

130 FOR n=s TQ s+209 STEP 
140 LEI tot=0s FRINT n;": 
150 READ hls PRIMI hi; 

160 LEI =0 


=16*(CODE hi(1> 
"9"))+CODE hi(2 


8 




co^ c >^ 

t* n - 


170 FOR b = l TO L_EN hi STEP 
180 LET z =FN h(hi)s LET tot 

+Z 

190 POKE n+x,z 

200 LET h!=h!(3 TO >s LET x 

210 NEXT b 

220 PRINT " = ";s READ t 
t 

230 IF totOt TI4EN PRINT 


P 


=t:ot 

=x + l 
RI NT 
DATA 


error 


i i " 


STOP 


8 


8 


240 

NEXT 

n 


250 

RANDOMIZE USR 65356 


260 

STOP- 



270 

DATA 

" 3 A 3 A 5 C F E 0 B2823F D " 

,801 

280 

DATA 

"CB017E20082AB25C" 

,682 

290 

DATA 

"23E5C3B712CD0313" 

,887 

300 

DATA 

"FD3600FF2A595CCD" 

, 990 

310 

DATA 

"A7112AB25C23E5C3" 

,955 

320 

DATA 

"B4122A5D5C2B7EFE" 

,848 

330 

DATA 

" 2 A 2 0 D 4 D F F E532815 " 

,907 

340 

DATA 

"FE4C20CBE7FE4F20" 

,116 

350 

i 

DATA 

"C6E7FE4120C1E7FE" 

, 1 45 

i 

360 

DATA 

"4420BC180FE7FE41" 

, 877 

370 

DATA 

" 20B5E 7FE5620B0E7 11 

, 122 

r 

380 

i 

DATA 

"FE4520AB32815CE7" 

, 102 

390 

i 

DATA 

"FE2028FBFD3600FF" 

, 1 13 

400 

DATA 

"FD362600CD7A1CFD" 

, 953 

410 

DATA 

"CB007E2892FE0D28" 

,822 

420 

DATA 

"04FE3A208AFD3600" 

, 793 

430 

DATA 

"FFFDCB017E200C2A" 

,924 

440 

DATA 

"B25C23E521B712E5" 

, 997 

450 

DATA 

"C3761BCD991E5059" 

,897 

460 

DATA 

"D5CD991EED43B05C" 

,117 

470 

DATA 

"DD2AB05CD13A8150" 

, 1 01 

480 

DATA 

"FE4428083EFF37CD" 

, 947 

490 

DATA 

"C20418063EFF37CD" 

,805 

500 

DATA 

"56052AB25C23E5C3" 

, 862 

510 

DATA 

"761BED5BB25C132A" 

, 804 

520 

DATA 

" 3 D 5 C732372C9003C " 

,678 

530 

DATA 

"42",66 
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PROGRAMMA 


zx 


SPECTRUM 


di Angelo Coccettini 



D a routine in linguaggio macchina che stavolta vi 
proponiamo converte un numero decimale N com¬ 
preso tra 0 e 65535 nella sua rappresentazione bi¬ 
naria stampando il risultato sullo schermo nella forma 

BIN (N)= GGGGGGGGGGGGGGGG 

Dove G può essere solo 0 oppure 1. Per chiamare la routi¬ 
ne bisogna digitare il comando 

RANDOMIZE N + USR 60000 

oppure un comando analogo (LET A = N + USR 60000, 
PRINT N + USR 60000, ecc). 


COMMENTO AL LISTATO ASSEMBLER 
Linee 40 • 90 

Vengono create le costanti numeriche pe l'ASSEMBLER. 

Linee 100 • 180 

DEC - HEX CONVERTER controlla se il numero N è stato 
passato al linguaggio macchina con l’istruzione RANDO¬ 
MIZE N. Si fa riferimento, come al solito, alle due variabili 
di sistema STED e STBT, come si faceva in DEC-HEX 
CONVERTER. 

Linee 190 • 200 

Viene selezionato il canale video chiamando CHANOP 
con A-2. 

Linee 210 • 230 

Si preleva il numero dallo STACK del calcolatore e lo con¬ 
serva sulla stack del linguaggio macchina (si ricordi la 
differenza tra le due dizioni). Il numero viene compresso 
nei registri BC generando un messaggio di errore se N > 
65535. Alla linea 230 il numero viene di nuovo conservato 
sullo STACK del calcolatore per essere stampato da 
PRSTK alla linea 320. 

Linea 240 • 360 

Si provvede a stampare il messaggio BIN (N) = sullo 
schermo una serie di chiamate RST 16 con A che contie¬ 
ne il codice da stampare. 

Linee 370 • 460 

Viene inizializzato un ciclo di 16 passi (380 LD D, 16 ) nel 
quale si controlla BIT per BIT il contenuto dei registri dop¬ 
pi BC usando le istruzioni di SHIFT (SLA C e RL B). Se il 
BIT è 0 si salta dalla 420 alla 440 e viene stampato il codi¬ 
ce ASCII 48, definito alla linea 390. Se invece il BIT con¬ 
trollato è 1, il contenuto di A viene incrementato e si 
stampa il codice 49, equivalente al codice ASCII di 1. 
Linee 470 -490 

Si stampa il codice di ritorno a capo e si esce in modo in¬ 
diretto tramite STKBC per evitare un messaggio di errore 
del sistema. 

Al contrario di HEX - DEC CONVERTER pubblicato nel nu¬ 
mero scorso questa routine è rilocabile e quindi può esse¬ 
re allocata in qualsiasi zona della memoria. Al solito, per 


chi non dispone di compilatori ASSEMBLER abbiamo pre¬ 
parato linee DATA nelle quali sono contenuti i codici nu¬ 
merici della routine. Basta quindi copiare il corto pro¬ 
gramma in BASIC e, dopo aver dato RUN, potrete chiama¬ 
re la routine con RANDOMIZE N + URS start. 


x-H.TSOFT GENS2 ASSEMBLEE* 
Copyright HISOFT 1983 
A ]. 1 r i g h t s r eserved 


Pass 1 

errorss 00 



10 

*C~ 




20 

*D+ 



60000 

30 


ORG 

60000 

5633 

40 

CHANOP 

EQU 

5633 

7833 

50 

UNSTK 

EQU 

7833 

11563 

60 

STKBC 

EQU 

11563 

23653 

70 

STED 

EQU 

23653 

23651 

80 

STBT 

EQU 

23651 

8242 

90 

PRSTK 

EQU 

8242 

60000 

1 00 


LD 

HL,(STED 

60003 

1.10 


LD 

DE,(STBT 

60007 

120 


AND 

A 

60008 

130 


SBC 

HL , DE 

60010 

140 


LD 

A,L 

6001 1 

150 


CP 

5 

60013 

160 


JR 

NC,CONT 

60015 

170 


RST 

8 

60016 

180 


DEFB 

25 

60017 

190 

CONT 

LD 

A,2 

60019 

200 


CALL 

CHANOP 

60022 

210 


CALL 

UNSTK 

60025 

220 


PIJSH 

BC 

60026 

230 


CALL 

STKBC 

60029 

240 


LD 

A, "B" 

60031 

250 


RST 

16 

60032 

260 


LD 

A , " I " 

60034 

270 


RST 

16 

60035 

280 


LD 

A, "N" 

60037 

290 


RST 

16 

60038 

300 


LD 

A, " (" 

60040 

310 


RST 

16 

60041 

320 


CALL 

PRSTK 

60044 

330 


LD 

A , " ) " 

60046 

340 


RST 

16 

60047 

350 


LD 

A," = " 
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segue DEC-BIN CONVERTER 


60049 

360 


RST 

16 

60050 

370 


POP 

BC 

60051 

380 


LD 

D, 16 

60053 

390 

N X B IT 

LD 

A, 48 

60055 

400 


SLA 

C 

60057 

410 


RL 

B 

60059 

420 


JR 

NC,ZERO 

60061 

430 


INC 

A 

60062 

440 

ZERO 

RST 

16 

60063 

450 


DEC 

D 

60064 

460 


JR 

NZ,NXBIT 

60066 

470 


L.D 

A, 13 

60063 

480 


RST 

16 

60069 

490 


JP 

STKBC 


LISTATO BASIC 

10 REM * DEC-BIN CONVERTER * 
20 : 

30 DATA 042,101,092,237,091,09 
9,092,167,237 , 082, 1 25,254 ,005,04 
8,002,207,025,062,002,205,001,02 
2 , 205,153 , 030,197,205,043,045,06 
2,066,215,062,073,215,062,078,21 


5,062,040,215,205,050,032,062,04 
1,215,062,061,215,193,022,016,06 
2,048,203,033,203,016,048,001,06 
0,215,021,06525 

40 DATA 032,243,062,013,215,19 
5,043,045,000,000,000,000,000,00 
0,000,000,000,000,000,000,000,00 
0,000,000,000,000,000,000,000,00 
0,000,000,000,000,000,000,000,00 
0,000,000,000,000,000,000,000,00 
0,000,000,000,000„000,000,000,00 
0,000,000,000,000,000,000,000,00 
0,000,000,00848 
60 DATA 20000 
70 RESTORE : L.ET tot=0 
80 INPUT "starts"; 1 oc 
90 READ a: IF a^20000 THEN ST¬ 
OP 

100 LET tot=tot+a 
110 IF a>255 AND tot/2<>a THEN 
CLS s PRINT FLASH 1 5 AT 10,10:" 
DATA ERROR": STOP 
120 IF a>255 AND t.ot/2=a THEN 
LET tot~0: GO TO 90 
130 F'OKE loc,a: PRINT 1 oc , a 
140 LET 1 oc —1 oc: +1 
150 GO TO 90 


PER I LETTORI “AUTORI” 


INVITO A COLLABORARE 

( \ 

I lettori-autori, i quali abbiano elaborato programmi originali di loro creazione e di in¬ 
teresse comune o si sentano capaci di crearne e desiderino vederli pubblicati, posso¬ 
no inviarli — purché registrati su supporto magnetico — alla Redazione di ”LIST“, Via 
Flavio Stilicone, 111, Cap. 00175, Roma, tei. 7665094. 

Gli elaborati devono essere corredati di chiare note esplicative sul funzionamento ed 
applicazione del programma. 

Gli Autori si assumono ogni responsabilità sull’originalità dei loro elaborati. 

I programmi accettati e pubblicati saranno compensati in ragione della loro originalità, 
chiarezza e precisione di elaborazione. Saranno preferiti programmi brevi e di facile 
esecuzione. 

Prima di inviare i programmi è preferibile telefonare a «LIST» preannunciando l’invio. 
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INTERVISTA AL PROF. MAURO LAENG 
professore ordinario di pedagogia 
nell'Università di Roma 

a cura di: GIUSEPPE FESTA 


Ritenendo di far cosa gradita ai letto¬ 
ri iniziamo, da questo numero, una 
serie di interviste suH’informatica ad 
Autorità nel campo scolastico, per fa¬ 
re, in qualche modo il punto della si¬ 
tuazione attuale. 

Inizia la serie il prof. Mauro Laeng, 
professore ordinario di pedagogia 
neirUniversità di Roma, il quale si oc¬ 
cupa ormai da molti anni della peda¬ 
gogia delle tecnologie educative. Egli 
è presidente del CNITE (Centro Nazio¬ 
nale Italiano Tecnologie Educative) 
ed è, nel CEDE (Centro Europeo 
dell’Educazione), supervisore del Di¬ 
partimento Apprendimento e Valuta¬ 
zione. È Direttore della rivista «Didat¬ 
tica delle Scienze» e dell’Enciclope¬ 
dia Pedagogica (Ed. La Scuola) ed è 
condirettore della rivista «Psicologia 
e Scuola» (Ed. Giunti). 

È stato vice presidente della Commis¬ 
sione del Ministero della P.l. per i re¬ 
centi programmi per la scuola ele¬ 
mentare; ha diretto ricerche per orga¬ 
nismi nazionali e internazionali (CNR, 
Enciclopedia Italiana, FORMEZ, 
ENAIP, IREF, INIPA, IEA Internaziona¬ 
le, UNESCO, Consiglio d’Europa). 

Ha al suo attivo numerose pubblica¬ 
zioni, alcune delle quali tradotte e dif¬ 
fuse anche all’estero. 

Mentre ringraziamo il prof. Leang del¬ 
la disponibilità e cortesia dimostrata¬ 
ci, nel rilasciarci l’intervista, ne pre¬ 
sentiamo qui di seguito il testo: 


Qual è la sua opinione sull’introduzio- 
ne del computer nella sucola elementare e 
media? 

□ Per ora si tratta di introduzione occa¬ 
sionale e saltuaria, non sistematica. Da un 
certo punto di vista, questo è un vantag¬ 
gio, perché si tratta di iniziative sostenute 
da interesse, impegno, talvolta entusia¬ 
smo. I docenti che manifestano il deside¬ 
rio di lavorare col computer non badano 
agli obblighi stretti, ma spesso vanno ol¬ 
tre: non risparmiano tempo né spesa, si 
dedicano a questa attività come dei neofi¬ 
ti. Nascono rapporti con altri colleglli, 
scambi, attività spontanea e collaborazio¬ 
ne. La scuola si avvantaggia di questo cli¬ 
ma operoso. 

È a conoscenza di sperimentazioni 
sull'uso del computer nella scuola elemen¬ 
tare e media? 

□ Sono a conoscenza di molti corsi di 
primo avviamento, per insegnanti e per 
alunni. In qualche caso l’iniziativa è stata 
presa da direttori e presidi, in altri dai 
provveditorati agli studi, in altri ancora 
da comuni e provincie. 

Tuttavia, le «sperimentazioni» in senso 
stretto, cioè con garanzie scientifiche sulle 
condizioni iniziali e finali, le ipotesi e i ri¬ 
sultali, sono per il momento piuttosto 
scarse. Qualcosa in tal senso stanno fa¬ 
cendo alcune università in collaborazione 
con le scuole (per es. a Genova, a Milano, 
a Parma, a Padova, a Pisa, a Roma) op¬ 
pure associazioni professionali. 


□ Ritiene utile, per l'introduzione 
dell'informatica nelle scuole elementari e 
medie, un «piano nazionale», come quello 
attivato per la scuola secondaria superio¬ 
re? 

□ Il piano nazionale per il primo biennio 
delle superiori ha avuto molti limiti, ma 
anche alcuni meriti che sarebbe ingenero¬ 
so negare. Bisogna auspicare che esso si 
sviluppi e si consolidi. 

Nelle scuole elementari e medie un piano 
nazionale comporterebbe forse oggi un 
onere eccessivo, se si volessero fornire di 
computer tutte le scuole, anzi tutte le 
«unità scolastiche» (cioè pure le sedi stac¬ 
cate, i plessi, ecc.). Però si potrebbe co¬ 
minciare col dotare almeno ogni distretto 
di uno-due laboratori informatici, accessi¬ 
bili a insegnanti e studenti dell’area rispet¬ 
tiva. Si concentrerebbero le risorse (non 
solo di macchine, ma anche di personale) 
e si ridurrebbero le spese. 


□ Ritiene che nella scuola media si deb¬ 
bano occupare di informatica soltanto i 
docenti di matematica e/o di educazione 
tecnica? 

□ 1 docenti di matematica e di educazio¬ 
ne tecnica dovrebbero comunque tutti ag¬ 
giornarsi all’uso dei computer; tutti gli al¬ 
tri potrebbero farlo con vantaggio, poiché 
anche bibliografia, letteratura, lingue stra¬ 
niere, disegno, musica traggono vantaggi 
da un uso intelligente del computer. 

►►► 
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□ Ritiene che il computer possa realizza¬ 
re un insegnamento individualizzato? 

□ Senza dubbio. Lo stesso programma 
di esercizi, oppure tutoriale, può essere 
usalo da 1 (X) soggetti in 100 maniere di¬ 
verse. Il computer ha una pazienza infini¬ 
ta, può presentare un esercizio, ripeterlo, 
variarlo; può passare ad esercizi via via 
più complessi, oppure tornare ad esercizi 
più semplici, a seconda del comportamen¬ 
to dell’utente. E di tutto tiene registrazio¬ 
ne accurata, cosi che può dare un quadro 
individualizzato estremamente preciso dei 
percorsi seguiti. 

□ Ritiene che il computer possa essere 
utile per il recupero di alunni in difficoltà 
e quindi per la riduzione della «mortalità 
scolastica» (ripetenze e abbandoni)? 

□ È utile per il recupero; può essere ad¬ 
dirittura la «mano d'iddio» per ragazzi 
che hanno difficoltà di comunicazione, 
certo, da questo alla riduzione delle ripe¬ 
tenze e abbandoni c’è ancora della strada 
da fare; questi fenomeni sono molto com¬ 
plessi e non bastano i computer a risolver¬ 
li. 

□ Ritiene che il computer possa essere 
utile per l'educazione dei portatori di han¬ 
dicap? 


□ Come ho detto, senz’altro si: per 
esempio per sordomuti, spastici, o anche 
per ragazzi iperemotivi. Per soggetti con 
gravi minorazioni, le maggiori società (co¬ 
me la APPLE c la IBM) hanno messo a 
disposizione, spesso gratis, dispositivi 
d’interfaccia appositi, che permettono di 
dare input al computer anche solo con 
soffi, cenni del capo, ecc. 

□ Ritiene che l’uso del computer possa 
aumentare in tutti gli alunni la precisione 
del linguaggio? 

□ Penso di si: il computer risponde solo a 
domande precise, e formulate con altret¬ 
tanta precisione, non solo sintattica, ma 
lessicale e ortografica. 

□ Ci può essere il pericolo di una limita¬ 
zione delle capacità linguistiche espressive, 
dovuto all’abuso del «dialogo» col com¬ 
puter? 

□ Il pericolo c’è» se si fa «soltanto» uso 
del computer. Ma non va sopravvalutato, 
perché a scuola e al di fuori della scuola i 
ragazzi hanno mille occasioni per rifarsi. 
Del resto ci sono altri pericoli di abuso, 
ad es., quelli derivanti dalla esposizione 
troppo prolungata alla televisione. 

□ Ritiene che il computer possa ostaco¬ 
lare la socializzazione? 

□ Certo il computer richiede un dialogo 
individualizato (si chiama «personal» per 
questo). Ma nell’uso didattico si è dimo¬ 


strata l’utilità di lavorare in 2-3 alla stessa 
tastiera. Inoltre il computer offre molte 
occasioni di dibattito, di scambio, di pro¬ 
poste, di lavori collettivi, gare, ecc. 

Ritiene che l’uso del computer in clas¬ 
se possa migliorare, con esercizi di pro¬ 
grammazione, le facoltà logiche degli 
alunni? 

□ Dipende. 11 semplice uso di program¬ 
mi già fatti può produrre qualche miglio¬ 
ramento, ma limitato. Il massimo si ottie¬ 
ne quando s’impara a programmare da 
sé; per fortuna, questo in LOGO è possi¬ 
bile anche ai bambini. 

□ C’è il pericolo che l'uso del computer 
possa nuocere alla creatività? 

□ Per nulla. Basti pensare alle possibilità 
creative offerte dal computer al disegno e 
alla musica. Migliaia di persone hanno 
imparato a leggere e a scrivere le note 
musicali per la prima volta attraverso il 
computer. 

□ Ritiene giustificato il timore che alla 
lunga il computer possa soppiantare l’in¬ 
segnante? 

□ Certamente no. Il computer può inve¬ 

ce essere un valido alleato dell’insegnante, 
presentando programmi interattivi, eserci¬ 
zi, giochi logici, e anche prove d’esame 
che vengono immediatamente corrette 
senza fatica. ■ 
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Vi è mai capitato di «beccarvi», nel bel mezzo di un pro¬ 
gramma, un «blackout», cioè un’interruzione dell’energia 
elettrica, con conseguente perdita del risultato di ore di 
lavoro? 

Bene (si fa per dire...), con il seguente piccolissimo pro¬ 
gramma, chiamato, appunto, «antiblackout», potete limita¬ 
re i danni prodotti da un’eventuale interruzione di corrente. 


50000 rem m****MM*m*+Mmmm*m*** 

50010 REM * FINTI BLACKOUT * 

50020 rem MmwwmMMMMmMwmMm 

50030 SRVE ' 'NEW PROGRAM",8 
50048 FRI NT "SWING NEW PROGRAM" 

50050 PRI NT •• PRI NT ‘ ’OK ' ' 

50060 PRINT ' "VERIFVING NEW PROGRRM" 

50070 VERIFV'‘NEW PROGRRM",8 

50080 PRINT'‘W3CRRTCHING OLD PROGRAM" 

50090 OPEN15,8, 15, ' 'SO S.E.TPIRNG/QUADR' ' 

50100 CL0SE15 

50110 PR I NT ' ’OK 

50120 PR I NT ‘ ’SFlENRM I NG ' ' 

50130 OPEN15,8,15,' 'R0 S.E.TRIANG/QUABR=N 
EW PROGRAM" 

50140 CL0SE15 
50150 PRINT-QK" 


Si tratta di digitare, una sola volta, il listato riprodotto, di 
appena 16 linee. Il programma si registra da sé, dando il 
RUN, col nome «S.E.TRIANG/QUADR», così potrete usarlo 


per il programma omonimo, presentato in questa stessa 
pagina. 

Poi iniziate a battere il vostro programma: essendo «anti¬ 
blackout» numerato da 50000 in poi, non interferisce con 
il programma che digitate, e ve lo ritroverete sempre in 
coda al programma stesso. 

Di tanto in tanto, basta dare l’ordine diretto «goto 50000» 
o «run50000», per avere in successione la registrazione 
provvisoria del programma sotto il nome «NEW PRO¬ 
GRAM» (nuovo programma); la sua verifica (non si sa 
mai...); la cancellazione del vecchio programma; la varia¬ 
zione del nome da «NEW PROGRAM» a 
«S.E.TRIANG/QUADR». 

Sullo schermo potete seguire, via via, le varie fasi: 

SAVING NEW PROGRAM - OK 
VERIFYING NEW PROGRAM - OK 
SCRATCHING OLD PROGRAM — OK 
RENAMING — OK 

Vi conviene di registrare la routine da sola, in modo da 
poterla caricare prima di iniziare un nuovo programma, 
per evitare di doverla ribattere nuovamente. Per altri pro¬ 
grammi, dopo aver caricato «antiblackout» in memoria, 
sostituite «S.E.TRIANG/QUADR» col nome del vostro pro¬ 
gramma, alle linee 50090 e 50130. 

Il programma non è automatico, cioè non salva da solo il 
lavoro fatto. Perciò non dimenticate di tanto in tanto, met¬ 
tiamo ogni quarto d’ora, di fermarvi un momentino e di di¬ 
gitare «goto50000». 

«Uomo avvisato ...». GIEFFE 
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Fabio 

Russo 


n n molte scuole medie, attraversando i corridoi, si 
possono osservare dei lavori svolti dagli alunni. 
Tra questi esiste una certa prevalenza di rappre¬ 
sentazioni grafiche realizzate duante le ore di Educazione 
Tecnica, con chiodini e fili di cotone colorati. Con lo stes¬ 
so materiale, cioè chiodini e filo, si costruiscono anche 
degli strumenti adatti a realizzare delle curve che il com¬ 
passo non è in grado di aseguire. 

L’ellisse è una di queste figure ottenibilie attraverso que¬ 
sto strumento, i libri nel settore del disegno tecnico parla¬ 
no ampiamente di questi sistemi. 

A noi ora, però, interessa come l’uso delle nuove tecnolo¬ 
gie può, partendo da una singola figura, elaborare disegni 
complessi. 

Le procedure in linguaggio LOGO sono state realizzate 
per «girare» su Commodore 64, per adattarle ad altri ela¬ 
boratori basta sostituire la primitiva VARY con quella ap¬ 
propriata (per esempio: SETX o ASXY). 

Per ottenere disegni sovrapposti come in alcune figure 
proposte, occorre lavorare richiamando la sottoprocedura 
“VALORI”. 


PER OTTENERE IL DISEGNO DELL’ELLISSE OC¬ 
CORRE DIGITARE: 

GRAFICO. ELLISSE 

SI OTTIENE LA SEGUENTE SCHERMATA: 


CON QUESTA PROCEDURA PUOI COSTRUIRE 
UN ELLISSE 

ECCO LA LEGENDA PER IL CORRETTO 
FUNZIONAMENTO 

: A È IL SEMIASSE ORIZZONTALE 
(VALORE MASSIMO = 150) 

: B è IL SEMIASSE VERTICALE 
(VALORE MASSIMO = 120) 

: N IL NUMERO DI RUGHE CHE 
RACCHIUDERANNO L’ELLISSE 

QUALI VALORI DI A B N? 

ALLORA I VALORI SONO 155 125 20 


Fig. 1 




ASSEGNATI QUESTI VALORI VERRÀ DISEGNATO 
L’ELLISSE 

VEDIAMO COME È FORMATA LA PROCEDURA 
GRAFICO. ELLISSE 


PER GRAFICO.ELLISSE 
PT ST [ ] 

ST[CON QUESTA PROCEDURA PUOI 
COSTRUIRE) 

ST [UN’ELLISSE] 

ST [ ] 

ST [ECCO LA LEGENDA PER IL CORRETTO] 
ST [FUNZIONAMENTO] 

ST [ ] 

ST [ ] 

ST [ A È IL SEMIASSE ORIZZONTALE 
(VALORE MASSIMO = 150)| 

ST [ ] 

ST [ ] 

ST [:N É IL NUMERO DI RIGHE CHE 
RACCHIUDERANNO L’ELLISSE] 

ST [ ] 

ST [ ] 

VALORI 

FINE 


LA SOTTOPROCEDURA VALORI 


PER VALORI 

ST |QUALI VALORI DI A B N ?] 

AS “L LR 
ST 1 ] 

ST FR [ALLORA I VALORI SONO| :L 
RIPETI 500 [ ] 

AS “A PRI MP :L 
AS “B PRI MP :L 
AS “N PRI MP MP :L 
AS “V 0 
ASSEX 
ELLISSE :L 
FINE 
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LA SOTTOPROCEDURA ASSEX 


PER ASSEX 
NT 

VAXY 155 0 
TANA 

VAXY ■ 155 0 
FINE 


LA SOTTOPROCEDURA ELLISSE 


PER ELLISSE :L 
NT GRASCHERMO 
QUART03 :A :B :N :V 
QUART04 :A :B :N :V 
QUARTOI :A :B :N :V 
QUART02 :A :B :N :V 
FINE 


LE SOTTOPROCEDURE 

QUART03 QUART04 QUARTOI QUART02 


PER QUART03 :A :B :N :V 
SE :V > :N :V 

SU VAXY — :A < — :V * :B / :N > GIU 
VAXY < - :A + :V * :A / :N > < - :B) 
QUART03 :A :B :N :V + 1 
FINE 

PER QUART04 :A :B :N :V 
SE :V > :N STOP 

SU VAXY < :V * :A / :N > < - :B > GIU 
VAXY :A < — :B + :V * :B / :N > 
QUART04 :A :B :N :V + 1 
FINE 

PER QUARTOI :A :B :N :V 
SE :V > :N STOP 
SU VAXY :A < :V * :B / :N > GIU 
VAXY < :A - :V * :A / :N > :B 
QUARTOI :A :B :N :V + 1 
FINE 

PER QUART02 :A :B :N :V 
SE :V > :N STOP 

SU VAXY < — :V * ;a / :N > :B GIU 
VAXY — :A < :B — :V * :B / :N > 
QUART02 :A :B :N :V + 1 
FINE 


STRUTTURA TOP-DOWN 


Per realizzare il grafico sull'ellisse 



SE VOGLIAMO OTTENERE ALTRE FIGURE DI ELLISSI 
SOVRAPPOSTI, POSSIAMO CREARE UNA PROCEDURA 
RICORSIVA COSI SCRITTA: 

PER RICORSIVO 
GRAF.ELLISSE 
RIPETI 500 [ ] 

DISCHERMO 

RICORSIVO 

FINE 

NELLA PROCEDURA IL RIPETI 300 [] È UN TEMPO DI 
ATTESA 

DISCHERMO SERVE PER POTER SCRIVERE GLI ALTRI 
DATI 

IN QUFSTO '/.ODO POSSO OTTENERE FIGURE COME 
QUELLE RAPPRESENTATE CON I NUMERI 3-4 


Fig. 3 
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THE MENU, PLEASE 
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Chi vuole scrivere un programma che si rispetti, si trova 
spesso a dover creare un MENU, cioè un elenco delle op¬ 
zioni permesse del programma stesso, che si possono 
scegliere, secondo le proprie necessità. 

In questo numero, vi proponiamo 3 diversi modi di redige¬ 
re un MENU. 

1. MENU CON INPUT 

Il primo (v. listato MENU A), il più comune, dopo le istru¬ 
zioni per il colore (15) per bordo e fondo (linea 40) e per il 
carattere maiuscolo, CHR$(142), (linea 50), prevede, con la 
scelta di un numero da 1 a 5, quattro opzioni più una, per 
terminare il lavoro. A scelta avvenuta poi, occorre preme¬ 
re il tasto RETURN. 

La richiesta di INPUT non è per un numero (S o S%) ma 
per una stringa S$, per evitare che la battitura involonta¬ 
ria di un tasto, faccia comparire l’errore REDO FROM 
START, che fa anche guastare rimpaginazione del menu. 
La linea 160 converte la stringa nel suo valore numerico e 
la confronta con i valori possibili. Se il numero battuto 
non corrisponde a quelli dell’intervallo 1-5, il computer 
chiede nuovamente l’immissione. Questo procedimento, 
che si chiama di «input controllato», serve per eliminare 
eventuali errori (ogni programma dovrebbe essere «a pro¬ 
va di distratto»). 

La linea 170, a seconda del valore immesso, fa saltare ad 
una delle linee 1000, 2000, 3000, ..., da dove dovrebbero 
cominciare le varie parti del programma. 

Ovviamente al posto di «I OPZIONE», «Il OPZIONE», «III 
OPZIONE», ..., dovete scrivere ciò che vi necessita. 

Può darsi che il vostro menu preveda un numero minore o 
maggiore di opzioni. In tal caso, toglierete o aggiungerete 
qualche linea. Se, ad esempio volete preparare un menu 
con 3 opzioni, basta cancellare la linea 120, cambiare il 5 
delle linee 130 e 140 in 4, e togliere la linea 4000. 

Se, invece, volete aggiungere una quinta opzione, posizio¬ 
nate il cursore sulla linea 120, cambiate 120 in 125, il 4 e 
5 e il IV in V. Poi andate sulla linea 4000 e cambiate 4000 
in 4500 e IV in V. 

Se listate il programma vedrete, al giusto posto, le due 
nuove linee aggiunte. 

2. MENU CON GET 

Se qualcuno di voi, dopo la scelta fatta, non vuole preme¬ 
re il tasto RETURN (meglio risparmiare le energie), ecco, 
allora, il listato MENU B, in cui è stato cancellato l’INPUT 
alla linea 140 e sostituito, alle linea 150, con GETS$, che 
- come è noto - attende la premuta di un tasto qualsiasi. 
Per il resto, che è rimasto invariato, valgono le avvertenze 
precedenti. 

3. MENU CON LETTERE DELL’ALFABETO 

Se qualcuno è originale, e non vuole usare i numeri, ma le 
lettere, per distinguere le diverse opzioni, può preferire il 
listato MENU C, in cui, appunto, le opzioni sono distinte 
dalle lettere A, B, C, D e la fine del programma con F. 

Il listato, con la linea 160, converte la scelta fatta con 
GETS$, cioè il nome del tasto premuto, nel suo valore 


ASCII (American Standard Code for Information Interchan- 
ge = codice standard americano per scambio di informa¬ 
zioni). 

Il valore ASCII è un numero che corrisponde a ciascun ta¬ 
sto del computer ed è uguale per tutti i calcolatori, eccet¬ 
to che per gli eventuali tasti speciali, alfabetici (lettere ac¬ 
centate o simboli varii) o grafici. 

Le lettere dell’alfabeto hanno il codice ASCII da 65 in poi, 
cosicché le linee da 170 a 210, tramutano ciascuna lettera 
in un numero da 1 a 5. 

Il programma, dalla linea 220, prosegue come negli altri 
due precedenti. 

GIUSEPPE FESTA 


10 REM ♦*♦****##*#******####**#*#**## 
20 REM * MENU R * 

30 REM *#*#*'*******^j|(***if:*jf:#*#j|f#*#*#* 

40 P0KE53288 .-15: P0KE53281,15 
50 PRINTCHRT(142) 

60 FRI NT’TE- 


70 FRINT"33 M E N U 

!" 

80 FRINT"3- 


90 PRINTTRB<12)'’MWl - I OPZIONE" 

100 PRINTTRB<12>":pG - II OPZIONE" 

110 PRINTTRB< 12)"W3 --III OPZIONE" 

120 PRINTTRBC12) "m - IV OPZIONE" 

130 PRINTTRB<12)"W5 - FINE" 

140 F'RINTTRB (. 12)''5HM5CELTR <1-5)";: INPUT 
S* 

150 I FS$= 1 ‘ ’ ’THEN 150 
160 S=VRL<S*): IFS<1QRS>5THEN60 
170 0NSG0SUB1000,2000,3000,4000,5000 
1000 PR I NT ’ ‘DI 0PZI ONE END 

2000 PRINT ’ ‘DI I 0PZIONE ...": END 
3000 PR I NT ’ ‘DI 11 OF'Z I ONE ..."•' END 
4000 PRI NT ' ‘DI V 0PZIONE ..." : END 
5000 PRINT'TEND" •' END 

10 rem **$*********= wmMwmmw**** 

20 REM * MENU B * 

30 rem *Mm****mm**M**$*m******* 

40 POKE53280,15 :P0KE53281,T5 
50 PRINTCHR$(142) 

60 PRINT’TE- 


70 FRINT"33 M E N U 

!" 

80 PEINT"3- 


90 PRINTTRB<12)"WM1 - I OPZIONE" 
100 PRINTTRBa2)"M2 - II OPZIONE" 
110 PRINTTRB<12)"W3 - III OPZIONE" 
120 F'RINTTRBC12) '‘$4 - IV OPZIONE" 
130 PRINTTRB<12)"W5 - FINE" 

148 PR I NTTRB < 12)' '3WB6CELTR < 1 -5) " 

150 GETS$ : IFS$=""THEN150 
160 S-VRL<S$ >:IFS<1QRS>5THEN150 
170 ONSGOSUB1000,2000,3000,4000,5000 
1000 PR I NT "ZÌI OF'Z I ONE ..." : END 
2000 F'R I NT ’ 'DI I OF'Z I ONE ..." : END 

3000 PR I NT ' DI 11 OF'Z I ONE ..." : END 
4000 F'R I NT "ni V OPZIONE ..."-END 
5000 PR I NT ' 'ZENO ' ' : END 
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10 REM ******************************** 
20 REM * MENU C * 

30 REM ******************************** 

4tì P0KE5328Q,15•P0KE53281,15 
50 F'RINTCHRf < 142) 

60 F'RINT'715- 


70 F‘R I NT 1 ' :G M E M IJ 

■" 

80 FRINT "3- - 

- B " 

90 PRINTTRE<12)''«MA - I OPZIONE" 
100 PRINTTRE * 1 - 12) "MB - II OPZIONE" 
110 PR INURBO 2 Vili:: - III OPZIONE" 


120 PRINTTRB 1 - 12) "MD - IV OPZIONE" 
130 PRINTTfìB( 12)''«F - FINE" 

140 PRINTTAEa2)"3««SCELTA <A-E)" 

150 GETSr: IFS$=""THEN150 
160 S=flSC<S$) 

170 IFS=65THENR=1 :GOTO220 
180 IFS=66THENR=2 : G0T0220 

190 IFS=67THENR=3:GGTO220 

2tì0 I FS=68THENA=4 ; GOTG220 

210 IFS=70THENR=5:GOTO220 

220 ONRGOSUB1000 , 20003000.. 4000 ■ 5000 

1000 PRINT’731 OPZIONE" END 

2000 PRINT'7311 OPZIONE": ENII 

3000 PR I NT "ZÌI 11 OPZI ONE ' ‘ : END 

4000 PR I NT 1 TIIV OPZ I ONE ' ‘ ; END 

5000 PR I NT ' 7FI NE 1 ' •' END 


SISTEMA ESPERTO 

TRIANGOLI E QUADRILATERI 

C64 


Se avete digitato con successo il Sistema Esperto sui 
triangoli, potete completarlo con la parte riguardante i 
quadrilateri. Avrete, così, un programma intelligente, che 
riconoscerà qualunque triangolo (equilatero; isoscele acu¬ 
tangolo, rettangolo e ottusangolo; scaleno acutangolo, 
rettangolo e ottusangolo) o quadrilatero (parallelogramma: 
rettangolo, rombo e quadrato; trapezio: isoscele, rettango¬ 
lo e scaleno). 

Il programma lascia invariati i numeri di linea di quello 
precedente, comprese le due subroutine, per cui il lavoro 
eventualmente già fatto non va perduto: occorre soltanto 
apportarvi qualche modifica. 

Caricate, dunque, il S.E. sui tringoli, aggiungetevi la routi¬ 
ne per l’antiblackout (pubblicata nelle pagine precedenti), 
modificate la linea 30 e aggiungete le linee da 150 a 190, 
che vi permettono di scegliere fra triangoli e quadrilateri. 
Digitate le linee del nuovo programma, da 400 a 740 e il 
gioco è fatto. 

Non vi preoccupate di cancellare la routine di «antiblac- 
kout», perché non dà alcun fastidio al programma e, in 
ogni caso, vi potrà essere utile in seguito, per eventuali 
modifiche che vorrete apportare al programma stesso. 
Ciao a tutti. 


130 PRINT"W COSR SI TRRTTR." 

140 GOSUB10U0 

150 INPUT"ZMI*E UN TRIANGOLO";fl$ 

160 I Ffì$= "SI* THEN20O 

170 INPUT"ME' UN QUADRILATERO";B$ 

180 IFB$="SI"THEH400 

190 PRINT’‘«lìlfON CONOSCO ALTRI POLIGONI. 
CIRO." : END 

200 REM ******************************* 
210 REM * TRIANGOLI * 

220 REM ******************************* 
230 INPUT"«HA TUTTI I LATI UGUALI";C$ 

240 IFC$ -"SI‘’THENPRINT 1 '«THE•' UN TRIANGOLO 
EQUILATER0 EB EQUIANGOLO ‘ 1 :GOSUB2O00:GOT 
0150 

250 INPUT "«HA DUE LATI UGUALI";D$ 

260 IFB$= "SI*THENF'RINT'\«IìE ' UN TRIANGOLO 

I SOSC'ELE ' ' : GOTO330 

270 PRINT"MiE•' UN TRIANGOLO SCALENO" : GOS 
UB2000:GOTO150 

280 INPUT 1 "«HA UN ANGOLO RETTO ",Et 
290 IFE$="SrTHENPRINT"MiE' UN TRIANGOLO 
RETTANGOLO SCALENO‘ 1 :GOSUB2000 : GOTO150 

300 INPUT"«kHA UN ANGOLO OTTUSO";F$ 

310 I FF$= ' ’S I ’ ‘THENF'R I NT * 'SUE UN TRI ANGOLO 
SCALENO OTTUSANGOLO ‘ ‘ GOSUB2000 ■' GOTO 150 
320 IFF''NO'THENF'RINT''MIE “ UN TRIANGOLO 
SCALENO ACUTANGOLO ' ' GOSUB2000 : GOT0150 
330 INPUT"«kHA UN ANGOLO RETTO",G$ 

340 I FGf= "Sr ‘THENF'R I NT ' ‘MIE UN TR I ANGOLO 
RETTANGOLO ISOSCELE ' ’ ; GOSUB2000: GOTO150 
350 INPUT "JSkHA UN ANGOLO OTTUSO”, H$ 

360 IFH*="SI"THENPRINT"tf!E UN TRIANGOLO 
ISOSCELE OTTUSANGOLO ‘ ' :GOSUB20O0 ; GOTO150 

370 F'RINT'‘«ITE•' UN TRIANGOLO ISOSCELE RCU 

TANGOLO.":GOSUB2000 : GOTO150 

400 REM ******************************* 

410 REM * PARALLELOGRAMMI * 

420 REM ******************************* 

430 INPUT"«HA I LATI PARALLELI A DUE A B 
UE OSI,NO, NON SO)", P$ 

440 I FF'$= ''NO "THEN630 
450 I FF‘*= ‘ ’S I ‘ THEN500 

460 INPUT ".«HA GLI ANGOLI OPPOSTI UGUALI 
OSI, NO, NON SO)", Pi- 
470 IFF'f="SI‘THEN500 
480 I FF'$= ' 'NO ' 'THEN630 

►►k 


10 REM ******************************** 

20 REM * SISTEMA ESPERTO * 

30 REM * TRIANGOLI E QUADRILATERI • * 
40 REM ******************************** 
50 REM * DI GIUSEPPE FESTA - ROMA * 
60 REM ******************************** 
70 POKE53280, 12 : P0KE53281,11: F'RINTCHR* < 1 
42) 

80 PR I NT * ‘ZfcWWtìiffittPlPMiin SI STEMA 

ESPERTO" 

90 PRINT"M TRIANGOLI E QUADRILATE 

RI" 

100 GOSUB1000 

110 PRINT"^M««tì«tt««Iip SE MI COMUNICHI 
LE CARATTERISTICHE" 

120 PRINT"M ESATTE DELLA FIGURA, TI DIR 
Q- DI CHE"• 
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segue: TRIANGOLI E QUADRILATERI di Giuseppe Festa 



OMPIITER 


490 INPUT"fLE DIAGOMALI SI DIMEZZANO,SCO 
ME IEVOLMENTE < SI, NO > ' 1 ; PS 
500 I FP$= ‘ 'NO * THEN630 

510 PRI NT ' ‘BUE •' JJN PARALLELOGRAMMA ‘ * • G0T05 
20 

520 INF'IJT'VpJHA LE DIAGONALI UGUALI CSI. 

NO,NON SO)”, RT 

530 IFR$="SI ’"THEN5S0 

540 I FR$= ' 'NO ' "THEN570 

550 INPUT "HA GLI ANGOLI RETTI <SI.■ NO)";R 
S 

560 PRINT"MiE' UN RETTANGOLO.” : GOTO600 
570 INPUT"JSkHA LE DIAGONALI PERPENDICOLA 
RI O31/NO)”,RT 

580 IFR$= "SI'THENPRINT""WÌE ' UN RflMBA. ’’:fì 
OSUB2000:GOTO150 

590 PRINT"M!E-' PARALLELOGRAMMA GENERICO. 

" ’ ; GOSUB2000 ; GOT0150 

600 INPUT"MkHA I LATI UGUALI”;Q$ 

610 IFQ$= 1 "SI "THENPRINT l ‘MRE UN QUADRATO. 

' ' ^ GQSUB20O0 : GOTO150 

620 PRINT"M!E' UN RETTANGOLO GENERICO.”: 
GOSUB2000 : GOTO150 

630 rem m*w**w****:*M 

640 REM # TRAPEZI * 

650 REM **mM*******m**************** 
660 INPUT"flkHA DUE SOLI LATI PARALLELI”; 
T $ 

670 IFT$="SrTHENPRINT-MiE' UN TRAPEZIO" 
:GOT0690 

680 PRINT"W!E- UN QUADRILATERO GENERICO. 

1 ’ :GOSUB2000 ; GOTO150 

690 INPUT"JSkHfl GLI ANGOLI ALLA BASE UGUA 
LI”;T$ 

700 IFT$=”SI"THENPRINT ”OTE' UN TRAPEZIO 

ISOSCELE.”:GOSUB2000 ; GOTO150 

710 INPUT”:«kHA DUE ANGOLI RETTI”; T$ 

720 IFT$="SI"THENPRINT"MÌE ' UN TRAPEZIO 
RETTANGOLO.”:GGSUB2000 : GOTO150 


UB2000 GOTO 150 
740 END 

900 rem *+*****mrn*MM*m****m****** 

910 REM * SUBRQUTINES * 

920 rem M**+**m*m*mmm****M****** 
1000 rem me***************************** 

1010 REM * PREMI UN TASTO * 

1020 rem ******************************* 

1030 PRINTTAB<25>''IPlPWlPliftPREMI UN TASTO” 

1040 GETX$ ^ I F>'.S= ‘ ' ' THEN2040 
1050 RETURN 

2000 REM ******************************* 

2010 REM * CONTINUI? * 

202O REM ******************************* 

2030 PR I NT * '.*Mi CONTINUI ? < S/N > ' 1 

2040 GETX$ : I FKS= ' 1 "THEN1040 
2050 I F;<* = ' "S “THENRETURN 
2060 END 

50000 PRINT'"3SAVING NEW PROGRAM” 

50810 SAVE''NEW PROGRAM”,8 
50020 PRINT"OK” 

50030 PRINT-WVERIFVING NEW PROGRAM” 

50040 VERIFV'NEW PROGRAM”,8 
50050 PRINT”OK” 

50060 PRINT*’WSCRATCHING OLD PROGRAM” 
50070 OPEN15,8,15,""SO-S.E.TRIANG/QUADR"* 
50080 CL0SE15 
50090 PRINT”OK” 

50100 PRINT " ’WRENAMING " " 

50110 OPEN15,8,15,”R0 : S.E.TRIANG/QUADR=N 
EW PROGRAM” 

50120 CL0SE15 
50130 PRINT"OK" 


’30 PRINT'"ffiBE x UN TRAPEZIO SCALENO. ”: GOS HRDCPV 


Abbonamento 

“SPECIALE SCUOLA” 

Prezzo particolare per Presidi, Direttori, Insegnanti, Studenti 

L. 38.500 (anziché 55.000) 

Il versamento va effettuato sul eie post. N. 72609001 indirizzato a LIST 
programmi per il tuo Home Computer - Via F. Stilicone, 111 - 00175 Roma 
apponendo nello spazio per la causale il timbro della Scuola di appartenenza. 


LIST 11/87 


75 






ANNUNCI ANNUNCI ANNUNCI ANNUNCI ANNU 


SE DESIDERATE VENDERE O SCAMBIARE IL VOSTRO COMPUTER E/O PERIFERICHE, INVIATE IL 
TESTO DA PUBBLICARE GRATUITAMENTE A: LIST, VIA FLAVIO STILICONE, 111 ROMA 00175. 

Poiché gli annunci sono gratuiti verranno cestinati quegli annunci che palesemente mirano all'esclusiva vendita 

o scambio di programmi che denotano evidente scopo di lucro. 

Per le ditte o gli artigiani che intendono pubblicizzare prodotti vale la tariffa modulare sottoindicata. 


□ CERCO per ZX Spectrum, 
istruzioni del RUN BASIC V1.0 
by E.B.Soft, super Tool da 9K. 
Cerco inoltre ZX interface 1 a 
harware vario. 

Domenico Maimone 
Via S. Nicola, 25 
85046 Maratea (PZ). 

□ CERCO STAMPANTE PLOT- 
TER PER Sharp MZ 700, inoltre 
vendo diverse riviste d’infor¬ 
matica come, BIT, PC, PS, 
CHIP ecc., anni 1984/85 prezzi 
da concordare, scivere a: 
Massimo Mascalchin 

Via G. Galilei, 3 
30030 Dolo (VE). 

□ VENDO Pocket Sharp PC 
1500 + stampante grafica, 
adattatore rete, + espansione 
8Kb + astuccio morbito + re¬ 
gistratore micro cassette 2 vel. 
Olimpus c/custodia e accesso¬ 
ri vari, valore L. 1.400.000, ce¬ 
do a L. 700.000 fisse. 

Claudio Capitanio 

Via Don Murialdo, 46 
10142 Torino 

tei. (011)4117251, ORE 20/21. 

□ VENDO Commodore 128 — 
Disk Drive Commodore 1571 — 
Monitor Philips 80 — Stam¬ 
pante Panasonic Kx-P-1080 in 
garanzia maggio ’87 — Pro¬ 
grammi originali: Viza Star 128 
con espansione e istruzioni in 
Italiano, Easy Script con ma¬ 
nuale. Tutto a lire 1.500.000. 
Telefonare ore 13.00/15.00 
Tel. 02/835 62 61 

1 VENDO C64 + drive 1541 
+ reg. dedicato C 2N + stam¬ 
pante a margherita DPS 1101 
carello lungo, vari programmi 
contabilità e fatturazione, in 
tutto L. 1.500.000. 

Scrivere o telefonare al Sig. 
Tacchini — Via Lanfranconi, 
5-8 — 16161 GENOVA — Tel. 
562622 


□ VENDO Olivetti Prodest PC 
128S in garanzia, con monitor 
a colori + giochi, come nuo¬ 
vo, causa motivi familiari. L. 
1 . 000 . 000 . 

Pasquale Falconi 
Via Zezio, 32 - Como 
tei. (031)276631, ore pasti. 

□ VENDO/CAMBIO ZX 81 con 

uscita monitor + espansione 
16K + alimentatore + libri 
sua programmazione e control¬ 
lo apparecchiature domestiche 
a L. 70.000 o cambio con pro¬ 
grammi (no giochi), riviste, libri 
per Spectrum 48K. 

Mauro Grusovin 
Via Garzarolli, 37 
34170 Gorizia. 

VENDO computer Olivetti 
MI9, 640 Kb RAM, 2 disk drive 
da 360 Kb, con manuali e pro¬ 
grammi. Il tutto come nuovo a 
L. 2.000.000. 

Marco Pagnini 
Via S. Biagio, 212 
Borgonovo V.T.-29011 Piacenza 

VENDO Commodore 64 con 
registratore a L. 330.000 il tut¬ 
to in perfetto stato e con im¬ 
balli originali. Vendo anche 
stampante MPS 802 con sche¬ 
da grafica a L. 300.000. In re¬ 
galo vario harware e software. 
Gianni Cottogni 
Via Strambino, 23 
10010 Carrone (TO) 
tei. (0125)712311 ore 18/21. 

VENDO SVI 707 MSX disk 
drive, come nuovo con imballo 
originale, manuale, garanzia, 
dischetti: MSX-DOS e CP/M 
con relativi manuali + 15 di¬ 
schi con circa 200 programmi 
tra giochi e utility a L. 350.000. 
Marco Mencarelli 
Viale Trieste, 1 - 60035 lesi (AN) 
tei. (0731)52176 ore pasti. 


VENDO Commodore 64 + 
registratore + Joistick + ma¬ 
nuale, vari giochi il tutto a L. 
250.000. 

Ruggero 

tei. 06/8189634 ore pasti. 

VENDO per computer MSX 
espansione 64K RAM Philips a 
sole L. 70.000 inoltre quick 
disk Philips a L. 145.000, moni¬ 
tor monocromatico Philips a L. 
95.000. Il tutto corredato di ca¬ 
vetti e manuali. 

Tel. a Marcello (0832)352123. 

VENDO causa passaggio 
sistema superiore, computer 
MSX2 Philips NMS 8220 con 
registratore Sony, Joystick e 
circa 50 programmi trà giochi 
e utility a L. 550.000 il tutto è 
come nuovo (6 mesi). 
Francesco Blandano 
Via Silvio Pellico, 15 
20011 Corbetta (MI) 
tei.(02)9778728, dopo le ore 18. 

VENDO computer Sega SC 
3000 con Basic Level 3A 16K 
+ cartriges + Joystick + gio¬ 
chi vari in cassette e da riviste 
specializzate. Prezzo da con¬ 
cordare. 

Giorgio Cristini 
Via Occidentale, 102 
66016 Guardiagrele (Chieti) 
tei. (0871) 82274. 

I VENDO sistema PC 128 S 
Olivetti Prodest: monitor a colo¬ 
ri-drive-tastiera, tutto ancora in 
garanzia + 6 giochi (Golf, 
Scacchi, Aviator, Blue Ribbon 
1, Star Striker, Smash & 
Grab) + 8 dischetti con pro¬ 
grammi vari + nuovissimo 
portadischetti + manuale 
d'uso + 10 riviste dedicate. 
Valore totale L. 1.700.000. Sven¬ 
do a L. 1.300.000 trattabili. 
Damiano Francesco 
Via Civitate 6 
71043 Manfredonia (FG) 

Tel. 0884/32613 ore pasti. 


...a ROMA 

via Ponzio Cominio, 46 

...a Grotta ferrata 

p.za Vincenzo Bellini, 2 

ELETTRONICA 

RUBEO 

— Tutto per 
Thome-computer — 

HARDWARE 

SOFTWARE 

SISTEMI MSX 

OLIVETTI PRODEST 
COMMODORE 
ZX SPECTRUM 


SI ESEGUONO 

librerie grafiche 
personalizzate con 
menu dedicati per 
programmi CAD. 
Oltre 50 arredi 
pronti per edilizia!!! 

INTERPELLATECI!!! 

S.T.C. 

Servizi Tecnici 
Computerizza ti 
Tel. 0735/69414 


Per gli annunci a scopo commerciale (imprese o 
artigiani) e riservato uno o più spazi modulari di 
cm. 4,3 x 5 al prezzo di Lit. 30.000 cadauno per 
ogni pubblicazione. Il testo, in busta chiusa, deve 
pervenire in redazione almeno 30 giorni prima 
dell'uscita in edicola. 

La richiesta dovrà essere accompagnata da un assegno bancario n.t. intestato a: 
EOICOMP srl. Via Flavio Stilicone. 11 1/00175/ROMA 


Errata-corrige 

A pag. 82 del numero precedente di LIST alla sesta ri¬ 
ga della seconda colonna, dell'articolo «NUMERI PRI 
MI» al posto di Sn 1 leggasi Sn ± 1. 

Con l'occasione precisiamo che l'articolo stesso che, 
per un'involontaria omissione, è risultato anonimo, è 
di Giuseppe Festa. 
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di LIST 

1984-1985 



UNA VERA SOFTECA CON 364 PROGRAMMI 
PREZIOSE RUBRICHE DI CULTURA INFORMATICA 
E MOLTI CONSIGLI... OLTRE I MANUALI 


IN REGALO 


LA VALIGETTA DI MODA 

Per richiederle usa il bollettino qui a fianco 
su cui è stampato l’importo da inviare. 
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INDISPENSABILE 
Al NEO-COMPUTERISTI 



FINALMENTE 
IL PRIMO LIBRO 
TUTTO 

ITALIANO SUL 

“LOGO” 


Il “Logo” è un linguaggio 
che si sta affermando, 
in Italia e all’estero, 
come il principale 
strumento per usare 
attivamente il computer 
nella scuola. 

‘Logo” serve per imparare 
a programmare con, 
ma anche 
senza il computer. 

Per richiederlo usa il bollettino 

















ROBOT in KIT 



NAVIUS MV 938 

IL ROBOT PROGRAMMABILE 


MOVIT 


m O, <49 G» 


tIOOOOOQO 


PRODOTTI IN GIAPPONE - DISTRIBUITI IN ITALIA 
da TEXIM ITALIA s.r.l. - Via Flavio Stilicone, 111 
C.A.P. 00175 - Roma - Tel. 7665495 

Per riceverli: 

Inviare l’importo al detto indirizzo, a mezzo VAGLIA 
POSTALE o ASSEGNO BANCARIO N.T. in busta chiusa. 


PREZZO: L. 79.000 




































Biometal Robot... tecnologia del « 


» 



Robot 5 assi azionato da Biometal. 

DH101 non usa pistoni o motori: Biometal è una speciale lega capace di modificare la propria forma se percorsa 
da corrente. 

Biometal in forma di filo (0.15 mm) aziona DH101 Robot come un muscolo umano. 

Caratteristiche: — 5 assi open loop. 

— modi di controllo: manuale, trace, E-Z link (seriale), parallelo Centronics, demol, demo2. 

— Voi stessi potete registrarlo nei movimenti. 

Esperienze con Biometal: — DH620 starting kit. 

— Biometal guide book. 

Biometal è un marchio registrato della TOKI Corporation. DH101 Robot è coperto da brevetto. 


RAVASI ROBOTICS 

RAVASI ROBOTICS è una divisione della RAVASI I M S. 

s.n.c. di Ravasi Felice e Fabrizio & C. 

Via Cartiera, 1 - 22050 Brivio (Co) Italia 
Telefono 039/53.21.433 

RAVASI ROBOTICS è una divisione della RAVASI I MS Telex 380161 RAVASI LCCI 



Cognome_ 

Nome_ _ . _ 

Indirizzo .. . _ 

CAP_ Città_Prov._ 

Sono interessato a: □ DH 101 Robot 

□ DH 620 starting kit 

□ Biometal guide book 

Il mio personal computer è_ 


Qtnrii 












